Help for this page

Select Code to Download


  1. or download this
    map [ m|/dir-(\d+)-(\d+)$|, $_], @ARGV
  2. or download this
    perl -le'print( (sort {$b->[0] <=> $a->[0] || $b->[1] <=> $a->[1] } ma
+p  [ m|/dir-(\d+)-(\d+)$|, $_], @ARGV)[1]->[2])' ./dir-*