如何在 Perl 脚本中收集外部命令的输出？

Question

我有一个名为 TET.EXE 的工具，它是 PDFlib 系列的产品，它用于提取特定文本的坐标。 使用 Perl 脚本中的这些坐标，我们可以提取所需的文本。 这是一个运行 .EXE 然后将坐标提供给 Perl 的手动过程，因此有人可以建议我让整个过程不受影响。

我的意思是 Perl 脚本本身应该运行 .EXE 并获取所需的坐标并提取文本。 在 Linux 中使用哪些命令来运行这个 perl 脚本？ 请，我需要您对以下方面的建议。
提前致谢。

Answer 1

如果我理解正确，您希望 perl 启动可执行文件并对打印到 stdout 的文本执行某些操作...在这种情况下，有几个选项：

使用反引号：

my $output = `TED.EXE`;

这会将 TED.EXE 命令的输出放入变量 $output 中，并且很可能足以满足您的需要。

使用 IPC::Open3

use IPC::Open3;
my($wtr, $rdr, $err);
my $pid = open3($wtr, $rdr, $err,
                'some cmd and args', 'optarg', ...);

：运行您的命令并将 $wtr、$rdr 和 $err 关联到标准输入、输出和错误流。

还有其他方法可以完成您想要的操作（Expect.pm ，Run3 等），但是我相信上面提到的应该足够了。

Answer 2

Perl 提供了许多运行外部程序并收集其输出的方法。 根据查看 tet.exe 我想说你最好的选择是使用 open函数并使用正则表达式循环输出以查找坐标：

open my $pdftext, "-|", "/path/to/tet.exe", "--text", $pdffile
    or die "could not open $pdffile using tet.exe: $!";

my ($x, $y);
while (my $line = <$pdftext>) {
    last if ($x, $y) = $line =~ /regex that matches the coords/;
}
die "file did not contain coordinates" unless defined $x;

Answer 3

如果 TET.EXE 输出到控制台，您可以使用以下命令捕获该输出。

my $tetOutput = `tet.exe /myoptions`;

如果您想阅读相关内容，请搜索“perl backtick”

Answer 4

我不明白问题，但可能是：

my $result = qx{TET.EXE some.pdf some params};

Answer 5

您还可以考虑另一种方法：使用 Perl用于提取坐标的库。

Answer 6

perlipc 文档展示了从 Perl 与外部进程交互的多种方法。

许多人告诉您使用反引号，但您也可以查看 IPC::System:: Simple 通过处理操作系统特定的怪癖，提供了更强大的方法来完成同样的事情。