From 4612f7f9862d47bebd77ce140ce6e6a7860bd15d Mon Sep 17 00:00:00 2001 From: Marco d'Itri Date: Thu, 26 Dec 2013 07:34:31 +0100 Subject: make_as32_del.pl: support ASPLAIN AS32 --- make_as32_del.pl | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/make_as32_del.pl b/make_as32_del.pl index 15bbdbb..663e7f6 100755 --- a/make_as32_del.pl +++ b/make_as32_del.pl @@ -9,13 +9,19 @@ while () { s/\s*#.*$//; next if /^$/; - my ($fh, $fl, $lh, $ll, $s) = /^(\d+)\.(\d+)\s+(\d+)\.(\d+)\s+([\w\.-]+)$/; - die "format error: $_" unless $s; + my ($fh, $fl, $lh, $ll, $s, $f, $l); + if (($fh, $fl, $lh, $ll, $s) = + /^(\d+)\.(\d+)\s+(\d+)\.(\d+)\s+([\w\.-]+)$/) { + $f = ($fh << 16) + $fl; + $l = ($lh << 16) + $ll; - my $f = ($fh << 16) + $fl; - my $l = ($lh << 16) + $ll; - my $server = ($s =~ /\./) ? $s : "whois.$s.net"; - - print qq({ $f, $l,\t"$server" },\t/* $fh.$fl $lh.$ll */\n); + my $server = ($s =~ /\./) ? $s : "whois.$s.net"; + print qq({ $f, $l,\t"$server" },\t/* $fh.$fl $lh.$ll */\n); + } elsif (($f, $l, $s) = /^(\d+)\s+(\d+)\s+([\w\.-]+)$/) { + my $server = ($s =~ /\./) ? $s : "whois.$s.net"; + print qq({ ${f}u, ${l}u,\t"$server" },\n); + } else { + die "format error: $_"; + } } -- cgit v1.2.3