Perl telnet命令不发送每个命令

作者: 小鬼
发布时间: 2024-04-18 05:33:50 (5天前)
转自：

3 条回复

0#
回复此人
薄情 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在对cmd（）的调用中指定命令提示符，例如 <code> @TSN =$telnet->cmd('export | grep -e SerialNumber..[A-Z] | cut -d"\"" -f2', Prompt => 'bash-2.02 #'); </code> </p> </DIV>

编辑
1#
回复此人
大黑骡子王 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 尝试在为模块telnet创建对象后打开连接 </p> <pre> <code> $telnet->open($host); </code> </pre> <P> 之后执行waitFor方法:(等待模式的<strong> bash-2.02＃ </强> 来） </p> <pre> <code> $telnet->waitFor(/^(bash-\d+.\d+ #)$/); </code> </pre> <P> 然后执行你的命令，它会给你正确的输出。 </p> </DIV>

编辑

登录后才能参与评论