寻找以DDMMYY格式生成昨天日期的Perl 5.12代码

发布时间：2020-12-15 23:31:09 所属栏目：大数据来源：网络整理

导读：我想用一种简单的方法将昨天的日期(本地时间)作为Perl脚本中的字符串.最好,我想这样做没有模块依赖,因为我们有一个简单的Perl 5.12安装. 所以,像： my $yesterdays_date=...; # Puts for example '301011' into $yesterdays_date,# if today is October 31st

我想用一种简单的方法将昨天的日期(本地时间)作为Perl脚本中的字符串.最好,我想这样做没有模块依赖,因为我们有一个简单的Perl 5.12安装.

所以,像：

my $yesterdays_date=...; # Puts for example '301011' into $yesterdays_date,# if today is October 31st,2011

解决方法

Time::Piece是核心：

use Time::Piece;
use Time::Seconds qw(ONE_DAY);

my $yesterday = localtime() - ONE_DAY();
print $yesterday->strftime('%d%m%y'),"n";

如果您担心夏令时,可以将当前时间标准化到中午附近：

use Time::Piece;
use Time::Seconds qw(ONE_DAY ONE_HOUR);

my $today = localtime;
my $yesterday = $today + ONE_HOUR * ( 12 - $today->hour ) - ONE_DAY;
print $yesterday->strftime("%d%m%y"),"n";

如果你可以使用依赖项,那么使用DateTime：

use DateTime;

print DateTime->now->subtract(days => 1)->strftime('%d%m%y'),"n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!