Expect的输出问题

bucciarati

我使用了perl的Expect模块写了一个自动输入命令的脚步，不过由于脚本里会和server端做一些命令的交互，server端会返回一些确认的信息，这些交互产生的信息就直接再屏幕上输出，有什么办法可以将这些输出不要再屏幕上显示扔到后台？先谢谢了

superdoctor

重定向标准输出

bucciarati

谢谢楼上回复，你是说再执行perl脚本的时候重定向标准输出？
有没有办法再脚本内部就作掉？

apile

可以...
.應該是這個吧..你得試試看...
$object->;log_stdout(0, 1, or undef)

看看下面網頁.....
http://search.cpan.org/~auschutz/Expect.pm-1.07/Expect.pod
真的Expect比Expect.pm複雜多了..

bucciarati

谢谢apile
在开头加上
$object->;log_stdout(0)；
就可以了

teddyboy

[quote]原帖由 "bucciarati"]我使用了perl的Expect模块写了一个自动输入命令的脚步，不过由于脚本里会和server端做一些命令的交互，server端会返回一些确认的信息，这些交互产生的信息就直接再屏幕上输出，有什么办法可以将这些输出不要再屏幕上..........[/quote 发表：

能不能把你的程序贴出来，让我参考参考，谢谢！

superdoctor

use Net::Telnet更合适一些，expect是仿shell的实现

apile

Expect有個好處..不管碰到什麼樣的login模式都可以用...
有時候需要連到Router上面去做事情...
而Net:Telnet只有一般的unix login 模式可以用...
比起Net::Telnet ，我還是比要喜歡用Expect...

superdoctor

原帖由 "apile" 发表：
Expect有個好處..不管碰到什麼樣的login模式都可以用...
有時候需要連到Router上面去做事情...
而Net:Telnet只有一般的unix login 模式可以用...
比起Net::Telnet ，我還是比要喜歡用Expect...

aplie，Net::Telnet可以实现几乎任何远程访问模式，包括telnet、ssh、ftp、smtp、pop、imap、ntp、http、https、uucp、rsh、gopher、finger等

可以选择或自定义传输的加密方式来匹配server端的规则，在cpan上search这个pm可以找到一个它的一个ftp实现

apile

我碰到的網絡設備...有些不是login: password:
而是username: 或id:或passwd的...
用Net::Telnet沒辦法滿足...
我trace過他的source code..他匹配的..有時候跟網絡設備不一樣...
如下面...username/login
要事出來一個userid : 那就不能run了....

1. 
   
2.     ## Wait for login prompt.
   
3.     $self->;waitfor(Match =>; '/login[: ]*$/i',
   
4.                    Match =>; '/username[: ]*$/i',
   
5.                    Errmode =>; "return")
   
6.         or do {
   
7.             return &$error("eof read waiting for login prompt")
   
8.                 if $self->;eof;
   
9.             return &$error("timed-out waiting for login prompt");
   
10.         };
    
11. 
    
12.     ## Wait for password prompt.
    
13.     $self->;waitfor(Match =>; '/password[: ]*$/i',
    
14.                    Errmode =>; "return")
    
15.         or do {
    
16.             return &$error("eof read waiting for password prompt")
    
17.                 if $self->;eof;
    
18.             return &$error("timed-out waiting for password prompt");
    
19.         };
    

复制代码