perl自动登录ping脚本

zidong

　　#!/usr/bin/perl
　　open (IPADR,"/root/lee/test/ip") || die "read file error";
　　my $line;
　　while ( defined ($line=) ){
　　@line=split(/\s+/,$line);
　　#@line=$line;
　　#print @line;
　　foreach $ip (@line){
　　if ($ip=~/^\d+\.\d+\.\d+\.\d/)
　　{
　　chomp($ip);
　　$cmd="ssh root\@$ip ping 202.96.209.5 -c 1 | grep avg | awk -F \\\/ '{print \$6}'\n";
　　#  print "$cmd";
　　$res=`$cmd`;
　　#print $res;
　　}
　　else {chomp($line);
　　print "$line\n";}
　　}
　　print $res;
　　}