1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
my @data = qw( abc BCD aaa bcd zyx xyz fge BBB CCC ccc DdD ); @data = sort { lc($a) cmp lc($b) } @data; print join("\n", @data) . "\n";
1 2 3 4 5 6 7 8 9 10 11
aaa abc BBB BCD bcd CCC ccc DdD fge xyz zyx
skeletonkey
-
Perl,
pasted
on Mar 5:
skeletonkey
-
Perl,
pasted
on Mar 5: