diff options
Diffstat (limited to 'make_ip_del.pl')
| -rwxr-xr-x | make_ip_del.pl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/make_ip_del.pl b/make_ip_del.pl index c452492..84e4dcf 100755 --- a/make_ip_del.pl +++ b/make_ip_del.pl @@ -7,18 +7,19 @@ while (<>) { s/^\s*(.*)\s*$/$1/; s/\s*#.*$//; next if /^$/; - die "format error: $_" unless (/^([\d\.]+)\/(\d+)\s+([\w\.]+)$/); - my $m=$2; my $s=$3; - my ($i1, $i2, $i3, $i4)=split(/\./, $1); - print "{ ".(($i1<<24)+($i2<<16)+($i3<<8)+$i4)."UL, ". - (~(0xffffffff>>$m))."UL, \""; + + die "format error: $_" if not /^([\d\.]+)\/(\d+)\s+([\w\.]+)$/; + my $m = $2; my $s = $3; + my ($i1, $i2, $i3, $i4) = split(/\./, $1); + print '{ ' . (($i1 << 24) + ($i2 << 16) + ($i3 << 8) + $i4) . 'UL, '. + ((~(0xffffffff >> $m)) & 0xffffffff) . 'UL, "'; if ($s =~ /\./) { - print "$s"; + print $s; } elsif ($s eq 'UNALLOCATED') { - print "\006"; + print "\\006"; } else { print "whois.$s.net"; } - print "\" },\n"; + print '" },' . "\n"; } |