| my @ips = qw( 212.211.123.1 142.11.12.155 12.11.23.41 12.211.123.1 68.11.123.1 68.11.12.1 68.12.23.21 21.211.12.1 21.211.123.1 ); # Computing a single packed-string sortkey my @sorted_ips = map substr($_, 4) => sort map pack('C4' => /(\d+)\.(\d+)\.(\d+)\.(\d+)/) . $_ => @ips; print join("\n", @sorted_ips), "\n"; |
|