perl - 如何在命令行中使用 Perl 来搜索其他程序的输出？

Question

据我所知(Perl 对我来说是新手)Perl 可用于针对 Unix 命令行编写脚本。我想要做的是运行(硬编码)命令行调用，并在这些调用的输出中搜索 RegEx 匹配项。有没有办法在 Perl 中简单地做到这一点？如何？

编辑:这里的顺序是:
- 调用另一个程序。
- 针对其输出运行正则表达式。

Answer 1

my $command = "ls -l /";
my @output = `$command`;
for (@output) {
    print if /^d/;
}

qx//准引用运算符(反引号是快捷方式)从 shell 语法中窃取:在新 shell 中将字符串作为命令运行，并返回其输出(作为字符串或列表，取决于上下文)。见 perlop详情。

您还可以打开管道:

open my $pipe, "$command |";
while (<$pipe>) {
    # do stuff
}
close $pipe;

这允许您 (a) 避免将整个命令的输出一次收集到内存中，并且 (b) 使您可以更好地控制运行命令。例如，您可以避免命令被 shell 解析:

open my $pipe, '-|', @command, '< single argument not mangled by shell >';

见 perlipc有关更多详细信息。