Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

print join ("\t", @$_), "\n" for sort {$a->[0] cmp $b->[0]} @merged;
  2. or download this
    A    "Monday"    325    908    "Jim"
A    "Monday"    423    383    "Sally"
A    "Monday"    993    421    "Jim"
C    "Wednesday"    426    907    "Mike"
C    "Wednesday"    737    432    "Mary"