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 | ...

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

1 个答案: