Help for this page

Select Code to Download


  1. or download this
    sort {
    my ($a1,$a2,$a3) = $a =~ /(\d*)_FFF(\d*)_(\d*)/;
...
        ||
    $a3 <=> $b3
}
  2. or download this
    map $_->[0],
sort {  $a->[1] <=> $b->[1]
     || $a->[2] <=> $b->[2]
     || $a->[3] <=> $b->[3] }
map [ $_, /(\d*)_FFF(\d*)_(\d*)/ ],