Default page

Your IP: 216.73.216.155
Server IP: 57.129.66.90
Server: Linux vps-7f548908 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: LiteSpeed
PHP Version: 8.2.27
Buat File | Buat Folder

View File Name : v4-to-v6-layout.pl

#!/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(<STDIN>){
	chomp;
	my($f, $t, $tail) = split /,/, $_, 3;

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

exit(0);