请教使用Net::SSH::Perl模块ssh登录的问题

hyq_111

请大家先看看我写的代码lcg-info-dynamic-pbs-new.pl)
    my %SSHs;
    sub setSSH{
       chomp $_[0];
       my($url,$user,$passwd,$hostname) = split /\s+/, $_[0];
       my $ssh = Net::SSH:erl->new($url,protocol => 2, debug => 1);
       $ssh->login($user,$passwd);
       $SSHs{$hostname} = $ssh;       
   }
    while(<FILE>{
       &setSSH($_);
    }
在这段代码中,当我的FILE文件里头只有一行输入的时候(即只登录一个远程主机的时候),是没问题的,可是当我FILE文件里头有多行输入的时候,后面的登录就会报这样的错误:
    Net::SSH: Can't bind socket to port 1023: 地址已在使用 at lcg-info-dynamic-pbs-new
请问这是什么原因,难道不能使用同一个端口同时登录多个主机吗?如果是那样的话,请问得怎么解决这个问题?很急的一件事,还请各位达人们帮忙解决一下,谢谢了先

兰花仙子

原帖由 hyq_111 于 2006-12-11 21:33 发表
请大家先看看我写的代码:(lcg-info-dynamic-pbs-new.pl)
    my %SSHs;
    sub setSSH{
       chomp $_[0];
       my($url,$user,$passwd,$hostname) = split /\s+/, $_[0];
       my $ssh = Net::SSH:: ...

一个奇怪的问题,sshd默认是22端口吧,1023是你的本地端口么?(连到对方22的)
为什么会用低于1024的端口作为本地临时端口呢?IO::Socket似乎不是这样..
这里fork子进程看看能否解决吧.

hyq_111

请能否写个提示性的代码给我看看吗?不好意思,我是perl新手,很多东西都不懂

兰花仙子

while(<FILE>) {
    chomp;
    next if fork;       # next if parent
    XXX->new(...);  # in child
    do something...
    exit 0;
}

give a try,good luck!

hyq_111

thank you very much!