Help for this page

Select Code to Download


  1. or download this
    map { [ $_, /(?:(\d+)\s+)?(\w)\s+(\d+):(\d+)/ ] }
  2. or download this
    sort {
    $a->[2] cmp $b->[2] ||
...
    $a->[2] <=> $b->[2] ||
    $a->[3] <=> $b->[3]
}
  3. or download this
    sort {
    $a->[2] cmp $b->[2] ||
...
    $a->[2] <=> $b->[2] ||
    $a->[3] <=> $b->[3]
}
  4. or download this
    @sorted =
    map  {
...
    map {
        [ $_, /(?:(\d+)\s+)?(\w)\s+(\d+):(\d+)/ ]
    } @unsorted;