Ubuntu中文论坛

代码： 全选

☎ cat apnic.pl 
#!/usr/bin/perl

my ($ip1,$ip2)=split(/\./,$ARGV[0]);
my $ip="$ip1.$ip2";
print $ARGV[0];
open(who, "whois -h whois.apnic.net $ARGV[0]|");
my $l;
while(<who>){
        last if /$ip/;
}
while(<who>){
        chomp;
        s/$&:\s*//,print " ► $_" if /^descr|^country/;
}
close(who);

代码： 全选

whois -h whois.apnic.net ip