Perl统计交换机下联设备ip和mac地址

#!/usr/bin/perl  
#Version 0.2  
#2011.5.31  
 use Encode;  
 use Net::Telnet::Cisco;  
 use Spreadsheet::WriteExcel;  
  open HOST,"</home/host.txt";  
  open IP,"</home/iplist.txt";  
  chomp(my @host=<HOST>);  
  close HOST;  
  chomp(my @ip=<IP>);  
  close IP;  
my $xls = Spreadsheet::WriteExcel->new( "/home/Switch.xls" );  
  foreach $h (@host){  
        print $h;  
        my $session = Net::Telnet::Cisco->new(Host => "$h");  
        my $hContent = $xls->add_worksheet( "Switch_$h" );  
        $HH=0;  
        $session->login('User', 'Pwd');  
        # Enable mode  
        if ($session->enable("EnPWD") ) {  
             print "Cennect is ok\n";  
           } else {  
             warn "Can't enable: " . $session->errmsg;  
           }  
        foreach $i (@ip){  
              $hContent->set_column(0,100,15);  
              my $contentStyle = $xls->add_format();  
              $contentStyle->set_size( 10 );  
              $contentStyle->set_bold();            #设置字体为粗体  
              $contentStyle->set_align( 'center' ); #设置单元格居中  
              $contentStyle->set_text_wrap();       #是否回车换行  
              $contentStyle->set_color('black');    #设置单元格前景色为红色  
             my @outputing = $session->cmd("ping $i");  
             my @arp = $session->cmd("show ip arp | in $i");  
             my @result=split( ' ' , $arp[0] );  
             my @mac = $session->cmd("show mac-address-table dy add $result[3]");  
             my @IPlist = split( ' ' , $mac[5] );  
             if ($IPlist[3]=~/.*\/.*/){  
                $HH+=1;  
                $hContent->write("A$HH", decode( 'gb2312', "$i" ), $contentStyle );  
                $hContent->write("B$HH", decode( 'gb2312', "$IPlist[1]" ), $contentStyle);  
                $hContent->write("C$HH", decode( 'gb2312', "$IPlist[3]" ), $contentStyle);  
              }  
          }  
         $session->close;  
   }  
$xls->close();