用 perl 把自己个shell 脚本连起来

工作中经常要应为更新一个东西，要敲好几个脚本。 现在一句话搞定。

现在用perl 把这几个shell 脚本连起来， 花了半天时间。哈哈，Perl时间长不用就是感觉生疏了。

再次发挥perl 万能胶水的功能。废话少说，上码。

$ cat test.pl
#!/usr/local/bin/perl -w
###
#auto update mrtg if this didnt work , please run
#1.     Run     cfg txar1.lsi.com  lsi2go        ( lsi2go is the snmp read string )
#2.     Run     index txar1.lsi.comName:  
#At Name:   prompt, enter description like      Austin MPLS router
#3.     Run     update txar1.lsi.com         ( repeat this 3 times until output messages stop )
#4.     Run    add_image.pl txar1.lsi.com     (  this add the picture for every link to the index.html)

#Note: for the first time, when you create a new device, you have to /var/www/html/mrtg/txar1.lsi.com
#And Run cp master.html index.html (then go to step 4)      
#
#[email protected]  
#2014/04/03


$security_string = "lsi2go";
$router_cat = $ARGV[0];
#$_ = $argv[0];
$mpls_router = "";
$site_code = "";
$site_name = "";
$network_cat = "";
$cfg = "/opt/mrtg/mrtg\-2.16.2/bin/cfg.snmp2 $ARGV[0] $security_string";
unless (system ($cfg)){
print " we have already got the conf, $ARGV[0],$security_string\n";
}

#decide if this is MPLS netowrk or Internet netowrk
#usually, r1 is MPLS network and r2/r5 is Internet network

if ($router_cat =~ /r1/){
 $mpls_router = $&;
 $network_cat = "MPLS";
 print "network cat is $network_cat\n";
}
if ($router_cat =~/^[a-z][a-z][a-z]/){
   $site_code = $&;
 print "site cose is $site_code\n";
}
print "$router_cat\n";


# find the site name from site file

 if ( ! open SITE, "/opt/mrtg/mrtg\-2.16.2/bin/site.txt"){
  die" die error($!)";
}

 while (<SITE>){
chomp;
if ( $_ =~ /$site_code:/){
 $site_name = $';
 print " match is $&\n";
 print "$site_name\n";
}
}
close SITE;
print "$site_name $network_cat\n";
print "$ARGV[0]";

#update index
$index = "/opt/mrtg/mrtg\-2.16.2/bin/index1 $ARGV[0] $site_name $network_cat";
unless (system ($index)){

  print " we got here\n";
}

#update
$update = "/opt/mrtg/mrtg\-2.16.2/bin/update $ARGV[0]";
unless (system ($update)){
 print " we got here udpate\n";
}

#add image to index.html

$add = "/opt/mrtg/mrtg\-2.16.2/bin/add_image.pl $ARGV[0]";
unless (system ($add)){
 print " we got here add\n";
}
$ cat site.txt
cip:Shanghai
ciz:Shenzheng
cib:Beijing