网络alive主机存活捕捉 一 （下载）

 

#!/usr/bin/perl -w
######################## 链接数据库， 将数据库中查找出来的 城市 中文名字和 英文名字 分别放到数组
use DBI;
use DBD::mysql;
# 链接数据库，地址 帐户 密码
my $dbh = DBI -> connect("DBI:mysql:db_iplocate;host=127.0.0.1", "admin","admin",{RaiseError=>1});
#  sql命令
my $sth = $dbh->prepare( q{select city_cn,city_en from `gps`}) or die("Cannot prepare statement:", $dbh->errstr(),"\n");
# 执行sql命令
my $rc = $sth->execute() or die("Cannot execute statement:", $sth->errstr(), "\n");

# 初始化两个数组，未来用来装 城市的 中文名字 和 英文名字
my @city_cn;
my @city_en;

# 将从mysql获得的city_cn和city_en放到相应的数组中
while (my @row = $sth -> fetchrow_array()){
    push @city_cn,$row[0];
    push @city_en,$row[1];
}
warn($DBI::errstr) if $DBI::err;
$dbh->disconnect();
$sth->finish();
####################### 按照每一个 城市 3个运营商进行生成 相应的命令, 并执行相应的命令,将下载的东西放到 当前目录的
# 初始化两个数组， 用来装 运营商的 中文名字 和英文名字
my @isps_cn = ("移动","联通","电信");
my @isps_en = ("ChinaMobile","ChinaUnicom","ChinaTelecom");
foreach $i(0..(@city_cn-1)){
    foreach $j(0..2) {
        $page_url = 'wget http://www.5maila.com/ipa.php?' . "$city_cn[$i]" .'%20' . "$isps_cn[$j]" . ' -O ' .  "$city_en[$i]" ."_". "$isps_en[$j]" ;
        print `$page_url`;
    }
}