1. #!/usr/bin/perl -w 
  2. ##################################### 函数 get_ip_array ########################################## 
  3. ################## 输入从www.5maila.com 上面搜索并下载的 文件名字  
  4. #################  输出 从里面找到的 ip地址段 
  5. sub get_ip_array{ 
  6. $filename="$_[0]"; 
  7. open "file","$filename"; 
  8. my @nets; 
  9. foreach $file_line (<file>){ 
  10.     if ($file_line=~ /href=\'ip_(.*).htm/){ 
  11.         $file_line_net = $1; 
  12.         push (@nets,$file_line_net); 
  13.     } 
  14.     else{ 
  15.         next; 
  16.     } 
  17. } 
  18. return @nets; 
  19. } 
  20.  
  21. ##################################函数 let_array_clear########################################### 
  22. #################### 输入一个含有若干ip地址的 数组 
  23. #################### 输出  同一个/24网络里面 只有 一个 ip地址 存在 
  24. # 函数，让数组 清楚一些 
  25. sub let_array_clear{ 
  26.     my @array = @_; 
  27.     my @new_array; 
  28.     my $ifsame = 0; 
  29.     foreach $array (@array) { 
  30.         #默认将 老数组中的每个值跟 新数组中的任一个值都不一样 
  31.         $ifsame=0; 
  32.         # 查询新数组序列中的每个值 
  33.         foreach $new_array (@new_array){ 
  34.             #将新数组中的一个值 按照 小数点进行 分隔成4块 
  35.             @new_array_numbers = split("\\.",$new_array); 
  36.             #将老数组中的一个值 按照 小数点进行 分隔成4块 
  37.             @array_numbers = split("\\.",$array); 
  38.             #判断数组4块中的前三块儿是否相同 
  39.             if ( $new_array_numbers[0] == $array_numbers[0] and $new_array_numbers[1] == $array_numbers[1] and $new_array_numbers[2] == $array_numbers[2] ){ 
  40.                 #如果相同，那么就将是否相同 设置为1 
  41.                 $ifsame = 1; 
  42.             } 
  43.         } 
  44.         # 比对完成后，对结果 ifsame 进行判断，如果相同，就进行下次循环，否则， 进行push操作 
  45.         if ($ifsame == 1) { 
  46.             next; 
  47.         } 
  48.  
  49.         elsif ($ifsame == 0) { 
  50.             $new_array = $array; 
  51.             push (@new_array,$new_array); 
  52.         } 
  53.     } 
  54.     return @new_array; 
  55. } 
  56.  
  57. ######################################## 连接数据库 #################################################### 
  58. use DBI; 
  59. use DBD::mysql; 
  60. my $dbh = DBI -> connect("DBI:mysql:db_iplocate;host=127.0.0.1", "admin","admin",{RaiseError=>1}); 
  61. my $sth = $dbh->prepare( q{select city_cn,city_en from `gps`}) or die("Cannot prepare statement:", $dbh->errstr(),"\n"); 
  62. my $rc = $sth->execute() or die("Cannot execute statement:", $sth->errstr(), "\n"); 
  63. # 初始化两个数组 ， 用来存放 从 数据库中得出的 城市 中文名字 和 英文名字 
  64. my @city_cn; 
  65. my @city_en; 
  66. # 将从mysql得到的city_cn和city_en放到相应的数组中 
  67. while (my @row = $sth -> fetchrow_array()){ 
  68.     push @city_cn,$row[0]; 
  69.     push @city_en,$row[1]; 
  70. } 
  71. # 初始化两个数组，用来存放 三个运营商的 中文名字 和 英文名字  
  72. my @isps_cn = ("移动","联通","电信"); 
  73. my @isps_en = ("ChinaMobile","ChinaUnicom","ChinaTelecom"); 
  74. # 对城市列表数组 进行 循环 
  75. foreach $i(0..(@city_cn-1)){ 
  76.     # 对 运营商数组 进行循环 
  77.     foreach $j(0..@isps_cn-1) { 
  78.         # 组合出英文文件名称        
  79.         $file_name = "$city_en[$i]" . "_" . "$isps_en[$j]"; 
  80.         # 开始处理 
  81.         print "开始处理$file_name......Ready!" 
  82.         # 1. 使用get_ip_array 的到 可能的ip地址段  
  83.         # 2. 使用let_array_clear 将得到的 ip地址段 数组 清洗， 确保不重复 
  84.         my @result = &let_array_clear(&get_ip_array("$file_name")); 
  85.         # 初始化 $nmap_target  
  86.         $nmap_target = ""; 
  87.         # 循环读出 result数组中存在的目标网段， 并在结尾加上 /24并 合并 
  88.         foreach $result (@result){ 
  89.             $nmap_target .= $result . "/24 "; 
  90.         } 
  91.         print `nmap -n -sP $nmap_target -oN result_nmap/$file_name`; 
  92.         print "处理$file_name......Complete!\n"; 
  93.     } 
  94. } 
  95.  
  96. warn($DBI::errstr) if $DBI::err; 
  97. $dbh->disconnect(); 
  98. $sth->finish();