<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

use warnings;
use strict;

# Script from Boris Zentner (Maxmind)
# This script converts the IPv4 csv database to the same
# format as the IPv6 database.

sub _x {
	sprintf("%02x%02x:%02x%02x", split(/\./, $_[0]));
}

while(&lt;STDIN&gt;){
	chomp;
	my($f, $t, $tail) = split /,/, $_, 3;

	for($t, $f){
		s/^"//;
		s/"$//;
	}
	my $xxxxf = _x($f);
	my $xxxxt = _x($t);
	print &lt;&lt;__OUT__;
"::$f", "::$t", $tail
"::ffff:$f", "::ffff:$t", $tail
"2002:${xxxxf}::", "2002:${xxxxt}:ffff:ffff:ffff:ffff:ffff", $tail
__OUT__
}

exit(0);
</pre></body></html>