Help for this page

Select Code to Download


  1. or download this
    # The spaces aren't really necessary.
my $months = 
...
    index( $months, lc(substr($b,0,3)), 0)
    || $a cmp $b
    } @files;
  2. or download this
    #! perl -sw
use strict;
...
The results of both sorts verify as the same

c:\test>
  3. or download this
    #! perl -sw
use strict;
...
The results of both sorts verify as the same

c:\test>