in reply to Ipsort

my @ips = qw(100.100.100.100 1.1.1.1);

my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
 map { [ $_, sprintf("%03d" x 4, split(/\./, $_)) ] } @ips;

# OR
my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] }
 map { [$_, pack("C*", split(/\./, $_))] } @ips;

[download]

Replies are listed 'Best First'.
Re: Re: Ipsort
by I0 (Priest) on Dec 17, 2000 at 21:22 UTC 
    #or
my @sorted = map {join".",unpack'C*',$_} sort map{pack"C*",split/\./} 
+@ips; 
#or, in v5.6.0
my @sorted = map {sprintf"%vd",$_} sort map{eval "v$_"} @ips;

    [download]
[reply]
[d/l]

In Section Cool Uses for Perl