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();