[PerlChina] Re: 有关Net::SSH::Expect

2009/2/19 Michael Zeng <galaxy2004@gmail.com>

  我有很多机器要 检测  是否能ssh 上， 

use strict ;
use lib '/ux/prj/prjhzeng/from_cpan/lib/site_perl/5.8.9' ;
use Net::SSH::Expect ;

### non password :
my $ssh =  Net::SSH::Expect -> new (
     host  =>  "etiger",
     user  =>  "prjhzeng2",
     raw_pty  => 1 ,
) ;

$ssh -> run_ssh()  or die "\nError !! \n";

呃。。。这里 run_ssh 只是调用外部的 ssh 进程。。。所以只要 ssh 可调用，一般不会 Error 的，呵呵。

对于 不输入密码的， 把hostname 随便乱写， user 乱写，怎么不die 出来呢？ 

 

自然不会 die 的，呵呵。我把你的脚本改写了一下：

    http://agentzh.org/misc/test-sshd.pl

用法是：

    perl test-sshd.pl foo@bar.com:12345

或者不带端口的：

    perl test-sshd.pl foo@bar.com

我自己拿我手上的各种机器都测试过了，呵呵。你可以试试哈 :)

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---