用perl能捕获屏幕输出吗？

nathanisl

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

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

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

谢谢！

lkk2003rty

直接重定向不行么？

nathanisl

回复 2# lkk2003rty


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

lkk2003rty

回复 3# nathanisl


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

nathanisl

回复 3# nathanisl


    差不多是这样：

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

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

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

2gua

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

lkk2003rty

回复 5# 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

nathanisl

回复 7# lkk2003rty

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

jiwang1980

回复 5# nathanisl


    my @database =  $telnet->cmd('show databases;');
返回的就是命令输出

dibug

script -f xxx