perl帮助找到合适的日期格式

时间:2010-08-05 23:24:38

标签: perl datetime date

我需要一些帮助,试图弄清楚如何格式化perl中的日期。我有一个工作的perl脚本,带有正则表达式,如果我使用这样的硬编码日期字符串,它可以正常工作:

my $mon = 'Aug';
my $day = '05';
my $year = '2010';

这些变量用于这样的正则表达式:

if ($line =~ m/(.* $mon $day) \d{2}:\d{2}:\d{2} $year: ([^:]+):backup:/)

现在,我需要自动化代码的这个日期部分并系统地使用当前日期。 我查看了perl localtime并尝试使用unix date并将它们放入变量中。 我需要有一周的日子,单个数字,用'0'填充。和今天一样,'八月''05' '2010'因为我用于正则表达式的输入文件的日期是这样的。

我的第二次尝试使用unix并且格式化返回数字,但我需要将它们作为字符串:

 my $mon2=`date '+%b'`;
 my $day2=`date '+%d'`;
 my $year2=`date '+%Y'`;

我使用日期格式的测试代码:

#!/usr/local/bin/perl -w

use strict;

my $mon = 'Aug';
my $day = '05';
my $year = '2010';

my $mon2=`date '+%b'`;
my $day2=`date '+%d'`;
my $year2=`date '+%Y'`;

print "$mon";
print "$day";
print "$year";

print "$mon2";
print "$day2";
print "$year2";

我的输出:

Aug052010Aug
05
2010

1 个答案:

答案 0 :(得分:6)

我讨厌打破它,但你正在重新发明轮子。所有这些都在DateTime发行版和DateTime::Format::类系列中得到了相当全面的实现:

use DateTime;
my $dt = DateTime->now;
print 'It is currently ', $dt->strftime('%b %d %H:%M:%S'), ".\n";

打印:

It is currently Aug 05 23:54:01.