当前位置：首页 → 问答吧 → 用perl能捕获屏幕输出吗？

用perl能捕获屏幕输出吗？

时间：2011-01-10

来源：互联网

请教请教，有没有类似的模块可以实现捕获屏幕输出：

假设某个设备，在登陆上去之后运行某一些命令以后，这个设备会打出一系列的log，这个log仅仅是作为屏幕输出，设备本身并不保存这些log

有没有可能能将屏幕输出的log用perl予以捕获并存成一个文件？

谢谢！

作者: nathanisl 发布时间: 2011-01-10

直接重定向不行么？

作者: lkk2003rty 发布时间: 2011-01-10

回复 lkk2003rty

有点问题，因为是telnet到远端设备，那么，通过telnet模块传递过去的命令事实上只在远端设备上显示，本机似乎没有显示，需要捕获的是远端设备上的屏幕输出。

作者: nathanisl 发布时间: 2011-01-10

回复 nathanisl

我的意思是在命令后面加上>file 这样的重定向然后就远程查看file文件的内容或者把这个文件down下来查看
这个和本机上没有显示输出结果没有什么关系吧

作者: lkk2003rty 发布时间: 2011-01-10

回复 nathanisl

差不多是这样：

telnet->open('123.123.123.123');
telnet->login('user','pwd');

telnet->cmd(String=>'command');

在我输出command命令之后，远端设备应该开始执行command并在屏幕上打出log，这些log本身只保存在ram里面，并不保存为文件，我现在不知道如何把这些屏幕显示捕获下来

作者: nathanisl 发布时间: 2011-01-10

应该不能，需要调用外部程序或API吧。

作者: 2gua 发布时间: 2011-01-10

回复 nathanisl

$ok = $obj->cmd(String => $string,
                 [Output  => $ref,]
                  [Cmd_remove_mode => $mode,]
                  [Errmode => $mode,]
                  [Input_record_separator => $chars,]
                  [Ors    => $chars,]
                  [Output_record_separator => $chars,]
                  [Prompt  => $match,]
                  [Rs    => $chars,]
                  [Timeout => $secs,]);
没用过这个模块查了下有这么个东东  不知道能不能用木有环境试验 sorry
参考URL：http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm

作者: lkk2003rty 发布时间: 2011-01-10

回复 lkk2003rty

telnet里面的get好像可以捕获，但是试验了一下，每次都只能捕获一部分程序就结束了，奇怪

作者: nathanisl 发布时间: 2011-01-10