| 标题 | perl中使用ip138网站查询ip归属地脚本分享 |
| 内容 | 这是去年年前写的一个perl脚本 哎 年后都没看过perl了。 代码如下: #!/usr/bin/perl use LWP::Simple; open (FILE,”<file”); while(<FILE>){ s/^IP1.*//g; my @file =split(/\,|\s+/,$_); my @file1=”$file[0] $file[1]“; my $IP =”$file[1]” ; my $domain=”$file[0]“; my $url=”http://ip138.com/ips138.asp?ip=$IP&action=2″; my $connet =get(“$url”); my @connet =split(/\n/,$connet); foreach my $sc (@connet){ if($sc =~ m/td align=”center”><ul><li>(.*?)<.*/){ printf “%-40s %-20s %s\n”,$domain,$IP,$1 ; } } } close(FILE); file 文件的格式 如下 代码如下: conf.f.360.cn 113.105.246.71,113.105.246.78 u.qurl.f.360.cn 218.30.117.155,218.30.117.156 config.dengluqi.net 127.0.0.1 61.172.201.194,61.172.201.195 dns.msftncsi.com 131.107.255.255 ptlogin2.qq.com 222.73.82.34 结果 代码如下: perl ip138.pl |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。