对Perl来说还很新。我在Linux机器上有一个Perl脚本,它具有自己的日志文件。日志文件名可以更改,具体取决于脚本所处理的数据(日期,文件名,数据类型等)。
某些情况下,脚本正在使用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当前使用的文件名?
重新分配*STDOUT
仅影响Perl内部STDOUT
标量的绑定。在系统级别重定向标准输出的正确方法是:
open (STDOUT, '>&', $log_fh) or die "$0: could not: $!";
同样,您应该从其他系统调用中报告可能会失败(use strict
和等)的错误。
cron
在主目录中运行您的作业,因此,如果路径$HOME/log
不存在,脚本将无法打开日志文件句柄(静默,因为您没有记录open
错误!)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句