Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:15.0:Rings:1-MinimalX
GeoIP
v4-to-v6-layout.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File v4-to-v6-layout.pl of Package GeoIP
#!/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);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
