#!perl -p @a=/\w+/g;s/:(?=:)/':0'x(8-@a)/e;/:/&&s/\w+/sprintf"%04s",$&/ge;$_=join('.',reverse/:/?/\w/g:/\w+/g).(/:/?".ip6":".in-addr").".arpa "
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page