我开始使用Perl进行编程，并且有问题将交换机（Cisco）的输出放在变量中。
示例：
我想将命令show version发送到交换机（$easy->send_command("show version");
然后将switch的响应放在一个字符串中（而不是在另一个文件中）。
之后我将在字符串中搜索比较版本（我在开始时声明一个字符串（这是用于比较的另一个变量），例如$version = "bootflash:cat4500-ipbasek9-mz.122-50.SG2.bin";）
目前我还没有向用户发送命令Show version后将交换机的输出放在字符串中。
任何人都可以帮助我吗？
答案 0 :(得分：0)
添加返回字符
$easy->send_command("show version\r");
保存输出
$version=$easy->exp_before;
将其更改为正则表达式
if ( $version =~ m"bootflash:cat4500-ipbasek9-mz.122-50.SG2.bin" ) {...}
请记住在开始运行命令之前执行术语len 0