如何将此perl脚本的输出重定向到文件？
如何将此perl脚本的输出重定向到文件？
提问于 2018-06-05 04:29:03
我没有太多使用perl的经验，如果有任何/所有的反馈，我将不胜感激。
在开始之前:我没有权限更改现有的perl脚本。
我每天运行几次perl脚本，但是我想开始在一个文件中捕获它们的输出。
第一个perl脚本没有任何参数，我可以毫无问题地"tee“它的输出：
/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作为额外的命令行参数处理？我不被允许分享整个脚本，但这里是它的main例程的开始：
...
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;
...上面的代码提供了什么线索吗？除了修改脚本之外，您还有什么技巧可以让我在文件中捕获它的输出吗？
回答 1
Stack Overflow用户
发布于 2018-06-05 05:24:26
不是挂着的。你正在“遭受缓冲”。与大多数程序一样，Perl的STDOUT在缺省情况下是缓冲的。与大多数程序一样，Perl的STDOUT在连接到终端时会被换行符刷新，否则会被块缓冲。当STDOUT没有连接到终端时，直到累积了4 KiB或8 KiB的输出(取决于您的Perl版本)或者程序退出，您才会得到任何输出。
您可以将$| = 1;添加到脚本中以禁用对STDOUT的缓冲。如果您的程序以TRUE值结束或使用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 | ...页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50688298
复制相关文章
相似问题