Select Code to Download

 print for sort qw[ 12 a123 a122 A123 B123 Ab123 aB123 456 1A23 1a23 ]
+;;
12          ## ord('1') == 49, ord('2') == 50
...
a122
a123
aB123

print for sort{ $b cmp $a } qw[ 1 10 100 2 20 21 3 300 ];;
300
...
100
10
1

print for sort{ $b <=> $a } qw[ 1 10 100 2 20 21 3 300 ];
300
...
3
2
1

print for sort{ 
    substr( $a, 1 ) <=> substr( $b, 1 ) 
...
D222
A473
B659

## Build an array of anonymous arrays, 
## each of which contains the sort field and the original element.
...
print Dumper \@sorted;;

$VAR1 = ['E001','C123','D222','A473','B659'];

@sorted = map{ 
    $_->[1] 
...

print Dumper \@sorted;;
$VAR1 = ['E001','C123','D222','A473','B659'];

print for map{ 
    $_->[2] 
...
A473
B659
C659

print for map{ 
    ## Chop off the bit we added.
...
D222
A473
B659

print for map{ 
    unpack 'x[N] A*', $_ 
...
D222
A473
B659

print for map{ 
    unpack 'x[NA1]A*', $_ 
...
A473
B659
C659

#! Perl -slw
use strict;
...
Jan 1997
Jan 1998
Dec 1998

C:\test>junk
Jan 1997
...
FY05
Apr 2006
Dec 2007