… | |
… | |
238 | $whois = $WHOIS{APNIC}->ip_request($ip) |
238 | $whois = $WHOIS{APNIC}->ip_request($ip) |
239 | || $WHOIS{RIPE} ->ip_request($ip) |
239 | || $WHOIS{RIPE} ->ip_request($ip) |
240 | || $WHOIS{ARIN} ->ip_request($ip); |
240 | || $WHOIS{ARIN} ->ip_request($ip); |
241 | |
241 | |
242 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
242 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
243 | or warn "$whois($ip): no addresses found\n"; |
243 | or do { warn "$whois($ip): no addresses found\n", last }; |
244 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
|
|
245 | or return; |
|
|
246 | |
|
|
247 | $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi |
|
|
248 | or die "$whois($ip): no addresses found\n"; |
|
|
249 | |
244 | |
250 | my ($ip0, $ip1) = ($1, $2); |
245 | my ($ip0, $ip1) = ($1, $2); |
251 | |
246 | |
252 | my $_ip0 = ip2int($ip0); |
247 | my $_ip0 = ip2int($ip0); |
253 | my $_ip1 = ip2int($ip1); |
248 | my $_ip1 = ip2int($ip1); |