如何在Perl中获取具有多行的对象的输出？

Question

@ver = $session->cmd("sh conf");

这里的变量是ver，它有配置文件，也就是说，它有多行。那么如何在不将ver变量放入循环的情况下获取{{1}}变量的每一行的输出？

Answer 1

您的@var变量是一个数组 - 每个元素都包含一行。

如果没有（隐式或显式地）循环遍历整个数组，则无法获得所有行。

您可以让perl为您完成所有工作 - 例如，根据您的需要使用join，grep或map。

示例：

#print all lines to a webpage
print join('<br />',@ver);

#print all lines with the word 'error' in it
print grep(/error/,@ver);

Answer 2

怎么样：

print join("\n", @ver);