perl - 将系统命令重定向到文件

Question

我下面有这个 perl 代码，基本上是想循环这两个文件。然后调用 bash 脚本（它将文件和分隔符作为参数，并打印出多行），然后将该命令的所有输出保存到一个新文件中（文件名末尾添加“_processed”）。 下面的语法有什么问题（目前它只是创建一个空白文件）？

#!/usr/bin/env perl
use strict;
use warnings;

my(@files) = (
"fixedtt.txt '|'",
"delimd2iffpipe.dat '|'"
);
for my $i (0 .. $#files) {
    my($filename) = split /[\s]+/, "$files[$i]", 2;
    my($name, $type) = split /[\.]+/, "$filename", 2;
    open (MYFILE, '>'."$name".'_processed.'."$type");
    system("sh myBashScript.sh $files[$i]");   #I want to write the entire output of this command to a file
    close (MYFILE); 
}

Answer 1

您可以通过在终端命令的前面加上 > 来重定向终端命令的输出。 <文件名>。因此：

system("sh myBashScript.sh $files[$i]");

变成：

system("sh myBashScript.sh $files[$i] > file.txt");

Answer 2

您似乎对 perl 如何写入文件感到困惑。 MYFILE 句柄上的 open 和 close 只会创建一个空文件。 system 不会在 perl 中对该文件执行任何操作。 （虽然我不能说你的 sh 脚本用它做什么）。

一些提示：

• 您正在使用 @files 的索引而不是元素，这
  无缘无故地降低了可读性，因为索引本身是
  没有在任何地方使用。
• 您正在使用 split 提取文件名和扩展名，而我
  假设这是有原因的。不过，没必要设置
  限制为 2 个，因为您只使用前一个或两个
  来自那次分裂的元素。
• 当您只有一个字符（或字符类，例如 \s）时，
  不需要括号。因此，请使用 \s 而不是 [\s]。
• 建议使用三参数 open 和一个
  词汇文件句柄。
• 捕获输出（到标准输出）是通过反引号或qx()完成的。
  system 仅返回系统调用的返回值。 dunsmoreb
  是正确的，您可以简单地在 shell 中重定向来创建
  文件，但这就是在 perl 中完成的方式。

如果我猜的话，我会说您正在尝试将 bash 脚本的输出写入您尝试打开的文件，在这种情况下您应该这样做：

my @files = (
    "fixedtt.txt '|'",
    "delimd2iffpipe.dat '|'"
);
for my $args (@files) {
    my ($filename)    = split ' ', $args;
    $filename =~ s/\./_processed./;
    open my $fh, '>', $filename or die $!;
    print $fh qx(sh myBashScript.sh $args);
    close $fh; 
}