|
|
|
|
|
|
|
|
my $country = $as_info->{$asn}{'country'} || $unknown_placeholder; |
|
|
my $country = $as_info->{$asn}{'country'} || $unknown_placeholder; |
|
|
my $rir = $as_info->{$asn}{'rir'} || $unknown_placeholder; |
|
|
my $rir = $as_info->{$asn}{'rir'} || $unknown_placeholder; |
|
|
|
|
|
|
|
|
# "15169|8.8.8.0/24|US|arin|" for 8.8.8.8 |
|
|
|
|
|
|
|
|
# "8.8.8.0/24 15169|8.8.8.0/24|US|arin|" for 8.8.8.8 |
|
|
printf $v4_fh "%s %s|%s|%s|%s|\n", $net, $asn, $net, $country, $rir; |
|
|
printf $v4_fh "%s %s|%s|%s|%s|\n", $net, $asn, $net, $country, $rir; |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
=cut |
|
|
=cut |
|
|
|
|
|
|
|
|
# vim: et:ts=4:sw=4 |
|
|
|
|
|
|
|
|
# vim: et:ts=4:sw=4 |