Question

Perl相当新鲜。我在Linux机器上有一个Perl脚本，它有自己的日志文件。日志文件名称可以更改，具体取决于脚本正在处理的数据（日期，文件名，数据类型等）

某些pionts的脚本使用system（）调用调用本机可执行文件，该函数向STDOUT和STDERR提供一些信息 - 在几分钟内几十到几百行。完成可执行文件后，脚本将继续并将其他一些信息记录到日志文件中。

到目前为止，脚本只记录了自己的输出，没有本机可执行文件输出，我想在Perl脚本登录时记录相同的文件。通过以下两种方法尝试：

#!/usr/bin/perl
#some other code
@array_executable_and_parameters = qw/echo foo/ ;
open $log_fh, '>>', 'log/logfile1.txt';
*STDOUT = $log_fh;
*STDERR = $log_fh;
print "log_fh=$log_fh\n";
system( @array_executable_and_parameters);

$logfilename='log/logfile2.txt';
open(LOGFILEHANDLE, ">>$logfilename" );
*STDOUT = LOGFILEHANDLE;
*STDERR = LOGFILEHANDLE;
print LOGFILEHANDLE "Somethinglogged\n";
system( @array_executable_and_parameters);

当我手动运行脚本时，它可以正常工作，但从cron运行时则不行。

我知道可以通过Linux方式在crontab中重定向，但是我必须知道要登录的文件名，只有当某些数据到达时才会知道，所以在我看来这是不可行的。我也希望尽可能多地在脚本中，没有很多依赖Linux等。我也没有可能安装任何额外的模块，Perl使用的库，假设它是最小的安装。

如何从Perl脚本中将STDOUT和STDERR重定向到特定文件？

如果可能的话，我如何检测当前STDOUT的文件名？

Answer 1

重新分配*STDOUT仅影响Perl内部STDOUT标量的绑定。在系统级别重定向标准输出的正确方法类似于

open (STDOUT, '>&', $log_fh) or die "$0: could not: $!";

您应该类似地报告可能失败的其他系统调用的错误（以及use strict等）。

cron在您的主目录中运行您的作业，因此如果路径$HOME/log不存在，脚本将无法打开日志文件句柄（默默地，因为您没有记录{{1错误！）

从cron运行时，Perl脚本不会将STDOUT输出到文件

1 个答案: