一个perl写的判断ip归属地

websyhg

这是一个使用ip138归属地查询的perl脚本

先到http://search.cpan.org/  搜索下载 LWP::Simple 模块

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl 

use strict;
use utf8;
binmode(STDOUT, ':encoding(utf8)');
use LWP::Simple;

my $ip = <STDIN>;
chomp ($ip);
my $url = "http://ip138.com/ips.asp?ip=$ip&action=2";
my $content = get $url;
 die "Couldn't get $url" unless defined $content;

my @diqus = ($content =~ m#<li>(.*)</li><li>(.*)</li><li>(.*)</li>#ig);

print "@diqus\n";

0

找到好贴不容易，我顶你了，谢了

重温战场

解释就系掩饰，掩饰等于无出色，无出色不如回家休息!!!

eddik

自从我变成了狗屎,就再也没有人踩在我头上了。

mwjhw216

很多女明星不红的原因是因为没有张开腿*^_^*

xingyu655

我是个凑数的。。。

sele

一时的冲动，子孙的危机!