blob: ea7926885aeb35269f76127e79f3c745058edbbf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#! /usr/bin/perl
use strict;
use warnings;
while (<>) {
chomp;
/^#/ and next;
/^(151\.216\.(\d+)\.(\d+)) (\d+) (\S+)$/ or die;
my $z;
my ($ip, $third, $fourth, $len, $name) = ($1, $2, $3, $4, $5);
if ($len == 24) {
$z = '2a02:ed02:' . $third . '::/64';
} elsif ($len == 25) {
if ($fourth == 0) {
$z = '2a02:ed02:' . $third . 'a::/64';
} else {
$z = '2a02:ed02:' . $third . 'b::/64';
}
} elsif ($len == 26) {
if ($fourth == 0) {
$z = '2a02:ed02:' . $third . 'a::/64';
} elsif ($fourth == 64) {
$z = '2a02:ed02:' . $third . 'b::/64';
} elsif ($fourth == 128) {
$z = '2a02:ed02:' . $third . 'c::/64';
} else {
$z = '2a02:ed02:' . $third . 'd::/64';
}
} else {
warn "Unknown len $ip/$len";
}
print "$z $name\n" if (defined($z));
}
|
