通过 perl 脚本执行命令 telnet

Question

我正在尝试使用 telnet 通过 Perl 脚本执行命令，下面的脚本似乎能够成功登录，但无法执行命令。我找不到正确的正则表达式，它会在执行命令之前等待提示符 >。

这是通过telnet正常登录时的结果图像：

#!/usr/bin/perl
use strict;
use warnings;
use Net::Telnet;
my $remote_host = 'myrouter';
my $telnet = new Net::Telnet  (Timeout=>10  ,Input_log => "received_data.txt" );
$telnet->open($remote_host);
$telnet->waitfor('/ADSL2PlusRouter login:/i');
$telnet->print('mylogin'); 
$telnet->waitfor('/Password:/i');
$telnet->print('my_password');
$telnet->waitfor('/-*>/');
$telnet->cmd("adsl show");
$telnet->print('exit');

Answer 1

您需要考虑到可能存在换行符。我不确定 Net::Telnet 与模式匹配的字符串看起来如何，但在模式中添加一些空格可能就足够了。

$telnet->waitfor('/-\s*>/');

这样您将拥有图片结束行的最后一个破折号，然后可能是一些空格，即\n，然后是>。

还可以查看https://regex101.com/r/eQ2pR0/1。

---

更新：进一步了解Net::Telnet documentation 我认为第一个示例在这里非常有用。 docs say this about prompt。

此方法设置用于在输入流中查找提示的模式。它必须是表示有效 perl 模式匹配运算符的字符串。方法 login() 和 cmd() 尝试读取直到匹配提示。如果您选择的模式与远程端发送的模式不匹配，它们将失败并出现超时错误。

所以我认为你不需要使用waitfor，而是使用prompt。

$telnet->print('my_password');
$telnet->prompt('/^> /');
$telnet->cmd("adsl show");

因为路由器的提示中没有任何信息，只需将其设置为'字符串开头，> 和空格即可。