fork(32) download
copy 
  1. $/ = undef;
  2. my $input = <main::DATA>;
  3. my $d = 0;
  4.  
  5. $_ = $input;
  6. s/\s(\d+)\/(\d+)\/(\d{4})\s/{$d = 10000*$3+100*$1+$2 if $d < 10000*$3+100*$1+$2}/eg;
  7.  
  8. print $d;
  9.  
  10. __DATA__
  11. File:tfo.supplement.20120901.done   9/1/2012    3:48:00 AM 
  12. File:tfo.supplement.20120901.zip    421144 KB   9/1/2012    3:48:00 AM 
  13. File:tfo.supplement.20120904.done   9/4/2012    3:57:00 AM 
  14. File:tfo.supplement.20120904.zip    421794 KB   9/4/2012    3:57:00 AM 
  15. File:tfo.supplement.20120905.done   9/5/2012    3:28:00 AM 
  16. File:tfo.supplement.20120905.zip    421875 KB   9/5/2012    3:28:00 AM
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
20120905
https://ideone.com/PtyDn
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!