Perl - 将命令通过管道传输到另一个命令中

Question

简单的问题，

有没有一种方法可以像在 *Nix 命令行中一样通过 perl 将命令通过管道传输到另一个命令？

例如：
免费-m | grep Mem

我怎样才能在 Perl 中进行“管道传输”？

Answer 1

您可以完全像这样调用该命令：

system("free -m | grep Mem");

来自 文档：

如果只有一个标量参数，则检查该参数是否有 shell 元字符，如果有，则将整个参数传递到系统的命令 shell 进行解析（在 Unix 平台上为 /bin/sh -c，但在其他平台上有所不同）。如果参数中没有 shell 元字符，则将其拆分为单词并直接传递给 execvp ，这样效率更高。

您可以对调用外部命令的其他方法执行相同的操作，例如 open：

open my $fh, "-|", "free -m | grep Mem" or croak "failed to run pipeline";
# and now read from $fh as usual