Help for this page

Select Code to Download

Select or download this

$ perl -le '$,=$/; print @ARGV[ map { unpack N, substr $_, -4 } \
    sort map { eval("v$ARGV[$_]") . pack N, $_ } 0 .. $#ARGV ]' \
...
1.1.1.66
1.2.1.1
1.11.1.1

Select or download this

$ perl -e 'printf "%vd\n", $_ for sort map { eval "v$_" } @ARGV' \
    1.2.1.1 1.1.1.1 1.11.1.1 1.1.1.66 1.1.1.9
...
1.1.1.66
1.2.1.1
1.11.1.1