1. #!/usr/bin/perl 
  2. sub get_ip_array{ 
  3. $filename="$_[0]"; 
  4. open "file","$filename"; 
  5. my @nets; 
  6. foreach $file_line (<file>){ 
  7.     if ($file_line=~ /href=\'ip_(.*).htm/){ 
  8.         $file_line_net = $1; 
  9.         push (@nets,$file_line_net); 
  10.     } 
  11.     else{ 
  12.         next; 
  13.     } 
  14. } 
  15. return @nets; 
  16. } 
  17.  
  18. # 函数，让数组 清楚一些 
  19. sub let_array_clear{ 
  20.     my @array = @_; 
  21.     my @new_array; 
  22.     my @new_array_numbers; 
  23.     my $ifsame = 0; 
  24.     foreach $array (@array) { 
  25.         #默认将 老数组中的每个值跟 新数组中的任一个值都不一样 
  26.         $ifsame=0; 
  27.         # 查询新数组序列中的每个值 
  28.         foreach $new_array (@new_array){ 
  29.             #将新数组中的一个值 按照 小数点进行 分隔成4块 
  30.             @new_array_numbers = split("\\.",$new_array); 
  31.             #将老数组中的一个值 按照 小数点进行 分隔成4块 
  32.             @array_numbers = split("\\.",$array); 
  33.             #判断数组4块中的前三块儿是否相同 
  34.             if ( $new_array_numbers[0] eq $array_numbers[0] and $new_array_numbers[1] eq $array_numbers[1] and $new_array_numbers[2] eq $array_numbers[2]){ 
  35.                 #如果相同，那么就将是否相同 设置为1 
  36.                 #print "发现相同！"; 
  37.                 $ifsame = 1; 
  38.             } 
  39.         } 
  40.         # 比对完成后，对结果 ifsame 进行判断，如果相同，就进行下次循环，否则， 进行push操作 
  41.         if ($ifsame == 1) { 
  42.             next; 
  43.         } 
  44.  
  45.         elsif ($ifsame == 0) { 
  46.             $new_array = $array; 
  47.             push (@new_array,$new_array); 
  48.         } 
  49.     } 
  50.     return @new_array; 
  51. } 
  52.  
  53. use DBI; 
  54. use DBD::mysql; 
  55. my $dbh = DBI -> connect("DBI:mysql:db_iplocate;host=127.0.0.1", "admin","admin",{RaiseError=>1}); 
  56. my $sth = $dbh->prepare( q{select city_cn,city_en from `gps`}) or die("Cannot prepare statement:", $dbh->errstr(),"\n"); 
  57. my $rc = $sth->execute() or die("Cannot execute statement:", $sth->errstr(), "\n"); 
  58.  
  59. my @city_cn; 
  60. my @city_en; 
  61. # 将从mysql得到的city_cn和city_en放到相应的数组中 
  62. while (my @row = $sth -> fetchrow_array()){ 
  63.     push @city_cn,$row[0]; 
  64.     push @city_en,$row[1]; 
  65. } 
  66.  
  67. my @isps_cn = ("移动","联通","电信"); 
  68. my @isps_en = ("ChinaMobile","ChinaUnicom","ChinaTelecom"); 
  69. foreach $i(0..(@city_cn-1)){ 
  70.     # 打印smokeping第一栏 
  71.     print "+ $city_en[$i]\n"; 
  72.     print "menu = $city_en[$i]\n"; 
  73.     print "title = $city_en[$i]\n"; 
  74.     # 对运营商进行循环 
  75.     foreach $j(0..2) { 
  76.         # 组合出文件名称        
  77.         $file_name = "$city_en[$i]" . "_" . "$isps_en[$j]"; 
  78.         #print "正在处理 $file_name\n"; 
  79.         # 打开 snmp 扫描的结果  
  80.         open "file_nmap_result","./result_nmap/$file_name"; 
  81.         # 初始化数组 file_nmap_result_usageips 
  82.         my @file_nmap_result_usageips=""; 
  83.         # 处理文件的每一行,处理完成后吐出一个有效ip的数组 
  84.         foreach $file_nmap_result_line (<file_nmap_result>){ 
  85.            # 如果开头是Host，那么就是我们要找的行 
  86.            if ( $file_nmap_result_line =~ m/^Host/ ){ 
  87.                # 将行进行 分隔 按照 空格 
  88.                @file_nmap_result_line_columns = split(" ","$file_nmap_result_line"); 
  89.                # ip地址在 第二列，对 ip地址按照小数点进行分隔 
  90.                @file_nmap_result_usageips_numbers = split("\\.",$file_nmap_result_line_columns[1]); 
  91.                # 对 ip地址的 小数点最后一个数字进行判断， 如果是0 或者255 就不再对此行进行处理 
  92.                if ($file_nmap_result_usageips_numbers[3] eq 0 || $file_nmap_result_usgaeips_number[3] eq 255 ){ 
  93.                    next; 
  94.                } 
  95.                else{ 
  96.                    push(@file_nmap_result_usageips,$file_nmap_result_line_columns[1]); 
  97.                } 
  98.            } 
  99.            else{ 
  100.                next; 
  101.            } 
  102.         }  
  103.         # 对 得到的数组进行清洗， 按照小数点分隔， 前三位相同的话，只保留一个 
  104.         @file_nmap_result_usageips_clear = &let_array_clear(@file_nmap_result_usageips); 
  105.         # 对得出的有效ip数组进行处理，得出sokeping可以使用的配置文件; 
  106.         my $usage_ip_number = 0; 
  107.         foreach $file_nmap_result_usageip (@file_nmap_result_usageips_clear){ 
  108.             if ($usage_ip_number eq 0){ 
  109.                 $usage_ip_number++; 
  110.                 next; 
  111.             } 
  112.             print "++ $isps_en[$j]_$usage_ip_number\n"; 
  113.             print "menu = $isps_en[$j]$usage_ip_number\n"; 
  114.             print "title = $isps_en[$j]$usage_ip_number\n"; 
  115.             print "host = $file_nmap_result_usageip\n"; 
  116.             $usage_ip_number++; 
  117.         } 
  118.         close("file_nmap_result"); 
  119.         #print "处理$file_name......Complete!\n"; 
  120.     } 
  121. } 
  122.  
  123. warn($DBI::errstr) if $DBI::err; 
  124. $dbh->disconnect(); 
  125. $sth->finish();