Perl Net :: Telnet发送“YES”

Question

我想将下一个命令发送到系统：“ZIAA：USR :: ACCESS = COM，:: FTP = W：;”

这一点都不难：

acknowledge

系统对此命令的回答是：

$telnet->cmd("ZIAA:USR::ACCESS=COM,::FTP=W:;");

正如您所看到的，从系统到命令的答案有几行（包括空行）

我的问题是：如何用“Y”和“输入”来回答

我的第一次尝试是：

LOADING PROGRAM VERSION 16.5-0

EXECUTION STARTED


YOU ARE MODIFYING EXISTING PROFILE: USR    


CONFIRM COMMAND EXECUTION: Y/N ? |

但它根本不起作用，我想waitfor应该与整篇文章相匹配，除了我不知道$telnet->waitfor('/CONFIRM COMMAND EXECUTION: Y/N ? /'); $telnet->print("Y"); 是否是对问题说“是”的正确方法。

当我手动回答问题时，我应该写下字母“Y”，然后按“输入”。系统的答案是“COMMAND EXECUTED”，如下所示：

"$telnet->print("Y");"