Convert a non-compressed IPv6 address to an octal string (for use in djbdns' data format)

ipv6octalstring.pl

sub ipv6OctString
{
        my $v6Addr = shift;
        my $res = '';

        foreach $_ (split(/:/, $v6Addr))
        {
                if (/^([0-9a-f]{2})([0-9a-f]{2})$/)
                {

                        $res .= sprintf("\\%03o\\%03o", hex($1), hex($2));
                }
        }
        return $res;
}