因工作量太大，所以写了一个脚本完成自动化工作。工作内容是，在crontab中内容如下：

 

 
  
  1. */1 * * * * /home/nagios/nsca/nagios_check_ping.sh 192.168.1.1 >/dev/null 2>&1 
 
  
现在改为
 
  
 
 
  
 
  
  1. */1 * * * * /home/nagios/nsca/nagios_check_ping.sh 192.168.1.1 mobile >/dev/null 2>&1 
 
  
要完成自动插入mobile的工作，crontab 的条目太多，不可能手工去插入。所以我的代码如下：
 
  
 
  
  1. #!/usr/bin/perl -w  
  2.  
  3. use strict; 
  4.  
  5. my $crontab = "crontab.txt"; 
  6. # 保存 crontab 到 crontab.txt 中 
  7.  
  8. my $result  = `crontab  -l > $crontab`; 
  9.  
  10.  
  11. open OUT,"> crontab2.txt" || die "Cann't open the file! $!"; 

  13. open IN,"< $crontab" || die "Cann't open the file! $!"; 
  14.  
  15.  
  16. my $flag = 1; 
  17. my $count  ; 
  18. while(<IN>){ 
  19.         $count++; 
  20.         my $line = $_; 
  21.         chomp $line; 
  22.         open MO,"< mobile.txt" || die "Cann't open the file! $!"; 
  23.         while(<MO>) { 
  24.                 my $ip_mobile = $_; 
  25.                 chomp $ip_mobile; 
  26.                 my @ip = split /\s+/,$ip_mobile; 
  27.                 if ( $line =~ /$ip[0]/ ){ 
  28.                         my @temp  = split /\s+/,$line; 
  29.                         print  OUT " */1 * * * * $temp[5] $ip_mobile >/dev/null 2>&1 \n"; 
  30.                         $flag = 1; 
  31.                         last; 
  32.                 }else { $flag = 0;} 
  33.         } 
  34.         if($flag == 0 ){ 
  35.                 print OUT "$line \n"; 
  36.         } 
  37.         $flag = 1; 
  38. close MO; 
  39. } 
  40. close IN; 
  41. close OUT;  
 
  
 
 
  
今天工作太累了，就不解释代码了。