PTR by dcutter

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