Tools

Let's wrap up a few loose ends. We told you about our tool to convert IP addresses to names so that your debugging output is easier to read. Here is such a tool written in Perl:

#!/usr/bin/perl -n use "Socket"; if (/\b)(\d+\.\d+\.\d+\.\d+)\b/) {
 $addr = pack('C4', split(/\./, $1)); ($name, $rest) = gethostbyaddr($addr, &AF_INET); if($name) {s/$1/$name/;
}
print;

It's best not to pipe named.run output into this script with debugging on, because the script will generate its own queries to the name server.