Sort By Month Name In Perl
by
·
Join the DZone community and get the full member experience.
Join For FreeSort by month name
#!/usr/bin/perl -w
#
#
#
use strict;
my @mon = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my $mon;
@{$mon}{@mon} = (0..$#mon);
my @data = ('Aug', 'Nov', 'Jun');
sub by_month {
$mon->{$a} <=> $mon->{$b};
}
print join $/, (sort by_month @data);
print $/;
Perl (programming language)
Sort (Unix)
Opinions expressed by DZone contributors are their own.
Comments