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 %sn”,$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

www.sina.com    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

查看图片

FTP自动上传文件的perl脚本以及配置文件
本应用程序设计的几个基本理念是：工具箱再利用：尽可能利用已有的工具；简化运行步骤；不引入过多的业务逻辑，满足的需求越简单越好。所以，

写了个perl的删除程序
大家有没有碰到过unix上，一个目录文件太多，无法删除的现象，我为大家写了个perl的程序删除catdel.pl#!/usr/bin/perl$file1=$ARGV[0];@tests=(1,2,3,4,5,6,7,8,9,'A','B','

perl常问题集合之一
Perl是什么？Perl是一个高阶程式语言，由LarryWall和其他许多人所写，融合了许多语言的特性。它主要是由无所不在的C语言，其次由sed、awk，UNIXshell和至