http://www.perlmonks.org?node_id=47128


in reply to Re: Ipsort
in thread Ipsort

#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]

In Section Cool Uses for Perl