Help for this page
my @sects= qw( 1 2 2.2 2.13 2.1.7 3.4a 10.1 10.10 10.1a 1a.2 ); my %sects; ... $sects{$key} = $_; } print "@sects{sort keys %sects}\n";
my @sorted = map { join '.', unpack 'N*', $_ } sort map { pack 'N*', split /\./ } @unsorted;
www.com | www.net | www.org
No recent polls found