Net::SSH::Expect waitfor不生效，急！！！在线等

jinwh12

最近在使用Net::SSH::Expect的过程，发现：官方提供的waitfor方法貌似不管用，官网描述如下：
     # returns:
        #       boolean: 1 is returned if string was found, 0 otherwise. When the match fails
        #                        waitfor() will only return after waiting $timeout seconds.

根据这个意思，waitfor应该是有返回值的，1-表示匹配成功，0-表示匹配不成功

但是我这边的代码执行结果，waitfor却没有返回值：
        my $confiure=$connect->exec($cmd);
        my $isfound = $connect->waitfor( '[\$#>]\s+$');
        while($isfound==0){
                print "not found end char;isfound=$isfound\n";
                $connect->waitfor( '[\$#>]\s+$');
        }

执行后isfound 一直是null，导致死循环了。。。。

而且不用这种方式，使用timeout，也不生效：
        my $confiure=$connect->exec($cmd);
        $connect->waitfor( '[\$#>]\s+$',30);
我的命令4秒就执行结束了，但是waitfor命令等了30秒，才继续执行其后的代码。

这是Net::SSH::Expect模块的bug么？

原来本来使用的是Net::SSH:erl，但是貌似做不了su切换，然后就换成Net::SSH::Expect了。

有大拿知道Net::SSH::Expect这个模块的waitfor以及timeout是怎么回事么？搞了两天，快被逼疯了

laputa73

waitfor( '[\$#>]\s+$')
这个写得对吗?
你手工执行一下command,然后拿结果作一个str,用这个正则看看能匹配上吗?