如何将这个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额外的命令行参数？我不被允许共享整个脚本,但这是它的主要例程的开始:

...
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;到脚本以禁用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 | ...