Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
my (@months) = qw(APR12 MAR13 APR11 MAR12 FEB13 APR13);
...

@months = ( sort by_month @months );
print "@months\n";
  2. or download this
    #!/usr/bin/env perl
my (@months) = qw(APR12 MAR13 APR11 MAR12 FEB13 APR13);
...

@months = ( sort by_month @months );
print "@months\n";