我没有太多使用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;
...
上面的代码提供了什么线索吗?除了修改脚本之外,您还有什么技巧可以让我在文件中捕获它的输出吗?
发布于 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 | ...
https://stackoverflow.com/questions/50688298
复制相似问题