如何在 Perl 文件中写入当前时间戳？

Question

如何在 Perl 文件中写入当前时间戳？

我创建了一个名为myperl.pl 的文件，它将打印当前时间戳。文件如下：

#!/usr/local/bin/perl
@timeData = localtime(time);
print "@timeData\n";

现在我正在尝试将此文件的输出重定向到另一个文本文件。脚本如下：

#!/usr/local/bin/perl
@myscript = "/usr/bin/myperl.pl";
@myfile = "/usr/bin/output_for_myperl.txt";
perl "myscript" > "myfile\n";

运行时出现以下错误：

perl 示例_perl_script.pl
在 sample_perl_script.pl 第 4 行，“perl”myscript“”附近的操作员预期的位置找到字符串
（您需要预先声明 perl 吗？）
sample_perl_script.pl 第 4 行的语法错误，靠近 "perl "myscript""
由于编译错误，sample_perl_script.pl 的执行被中止。

Answer 1

您需要一个文件句柄来写入文件：

#!/usr/local/bin/perl

use strict;
use warnings;

my $timestamp = localtime(time);

open my $fh, '>', '/tmp/file'
   or die "Can't create /tmp/file: $!\n";

print $fh $timestamp;

close $fh;

一些文档：open、Leaning Perl

另一种解决方案是没有文件句柄的脚本，只是打印，然后在命令行上：

./script.pl > new_date_file

Answer 2

另一个提示。如果你想控制时间戳的格式，我通常会抛出一个像下面这样的子程序。这将返回格式为“20120928 08:35:12”的标量。

sub getLoggingTime {

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
    my $nice_timestamp = sprintf ( "%04d%02d%02d %02d:%02d:%02d",
                                   $year+1900,$mon+1,$mday,$hour,$min,$sec);
    return $nice_timestamp;
}

然后将代码更改为：

my $timestamp = getLoggingTime();