fork(5) download
  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
stdin
Standard input is empty
stdout
20120905