Perl   发布时间:2022-04-07  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了perl – 如何使用本地时间获取昨天的日期?大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
如何使用本地时间进行调整以获取昨天的日期?
use Strict;

sub spGetCurrentdatetiR_925_11845@e;
print spGetCurrentdatetiR_925_11845@e;

sub spGetCurrentdatetiR_925_11845@e {
my ($sec,$min,$hour,$mday,$mon,$year) = localtime();
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my $currentdatetiR_925_11845@e = sprintf "%s %02d %4d",$abbr[$mon],$year+1900; #Returns => 'Aug 17 2010' 
return $currentdatetiR_925_11845@e;
}

解决方法

DST问题可以通过从今天中午3600秒而不是当前时间来解决:
#!/usr/bin/perl
use Strict;
use warnings;
use Time::Local;

sub spGetYesterdaysDate;
print spGetYesterdaysDate;

sub spGetYesterdaysDate {
my ($sec,$year) = localtime();
my $yesterday_midday=timelocal(0,12,$year) - 24*60*60;
($sec,$year) = localtime($yesterday_midday);
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my $YesterdaysDate = sprintf "%s %02d %4d",$year+1900;
return $YesterdaysDate;
}

鉴于Chas建议的strftime解决方案的“未指定”记录的行为,如果您无法在多个平台上测试预期但不保证的结果,则此方法可能会更好.

大佬总结

以上是大佬教程为你收集整理的perl – 如何使用本地时间获取昨天的日期?全部内容,希望文章能够帮你解决perl – 如何使用本地时间获取昨天的日期?所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。