如何将这个Perl脚本的输出重定向到文件？

Question

我没有perl的丰富经验，希望能收到任何/所有反馈。

[开始之前：我无权更改现有的Perl脚本。]

我每天运行几次perl脚本，但是我想开始将它们的输出捕获到文件中。

第一个perl脚本不带任何参数，并且我可以“输出”其输出而不会出现问题：

/asdf/loc1/rebuild-stuff.pl 2>&1 | tee $mytmpfile1

第二个Perl脚本使用以下命令挂起：

/asdf/loc1/create-site.pl --record=${newsite} 2>&1 | tee $mytmpfile2

仅供参考，以下命令不会挂起：

/asdf/loc1/create-site.pl --record=${newsite} 2>&1

我想知道/asdf/loc1/create-site.pl是否正在尝试处理| tee $mytmpfile2 | tee $mytmpfile2作为附加的命令行参数？ 我不允许共享整个脚本，但这是其主要例程的开始：

...
my $fullpath = $0;
$0 =~ s%.*/%%;

# Parse command-line options.
...
Getopt::Long::config ('no_ignore_case','bundling');
GetOptions ('h|help'               => \$help,
            'n|dry-run|just-print' => \$preview,
            'q|quiet|no-mail'      => \$quiet,
            'r|record=s'           => \$record,
            'V|noverify'           => \$skipverify,
            'v|version'            => \$version) or exit 1;
...

上面的代码是否提供任何线索？ 除了修改脚本之外，您还有其他提示可让我将其输出捕获到文件中吗？

Answer 1

它没有挂。 您正在“遭受缓冲的折磨”。 像大多数程序一样，Perl的STDOUT默认情况下是缓冲的。 像大多数程序一样，Perl的STDOUT在连接到终端时会用换行符刷新，否则会缓冲块。 当STDOUT未连接到终端时，直到累计4 KiB或8 KiB的输出（取决于Perl的版本）或程序退出之前，您将不会获得任何输出。

您可以添加$| = 1; $| = 1; 到脚本以禁用STDOUT的缓冲。 如果您的程序以真值结尾或使用exit ，则可以执行此操作而无需更改.pl文件。 只需使用以下包装器：

perl -e'
   $| = 1;
   $0 = shift;
   do($0);
   my $e = $@ || $! || "$0 didn\x27t return a true value\n";
   die($e) if $e;
' -- prog args | ...

否则您可能会愚弄程序，以为程序已使用unbuffer连接到终端。

unbuffer prog args | ...