
平台论坛博客文库

› 论坛 › 程序设计 › Perl › net::openssh的使用情况

net::openssh的使用情况 [复制链接]

hh9net

稍有积蓄

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2010-01-25 11:56 |只看该作者 |倒序浏览

use Net::OpenSSH;
open BH, "</root/quanxin/diannao1";
while ( $k = <BH> ) {
chomp($k);
my $ssh = Net::OpenSSH->new($k);
$ssh->rsync_put(
      {
         exclude => '*~',
         recursive  => 1,
         verbose => 1,
         safe_links => 1
      },
      '/root/quanxin/sed.sh',
      '/root/'
);
$ssh->system("/root/sed.sh")
   or die "remote command failed: " . $ssh->error;
print $k;
}
close BH;

IP放在diannao1的文本里

现在遇到的问题是：
运行一两次后，他就像阻塞了一样，没反应了，希望有这方面经验的朋友说说