如何使用当地时间获取昨天的日期？

Question

如何调整它以使用当地时间获取昨天的日期？

use strict;

sub spGetCurrentDateTime;
print spGetCurrentDateTime;

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

～

Answer 1

use DateTime qw();
DateTime->now->subtract(days => 1); 

第二行的表达式返回一个 DateTime 对象。

Answer 2

尽管从当前时间减去一天的秒数很诱人，但有时这会产生错误的答案（闰秒、夏令时，以及可能的其他）。我发现让 strftime （在 Perl 5 核心模块中可用 POSIX）为我处理所有这些事情。

#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;
use POSIX qw/strftime/;

#2010-03-15 02:00:00
my ($s, $min, $h, $d, $m, $y) = (0, 0, 0, 15, 2, 110);

my $time      = timelocal $s, $min, $h, $d, $m, $y;    
my $today     = strftime "%Y-%m-%d %T", localtime $time;
my $yesterday = strftime "%Y-%m-%d %T", $s, $min, $h, $d - 1, $m, $y;
my $oops      = strftime "%Y-%m-%d %T", localtime $time - 24*60*60;
print "$today -> $yesterday -> $oops\n";

Answer 3

DST 问题可以通过从今天中午开始计算 3600 秒而不是当前时间来解决：

#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;

sub spGetYesterdaysDate;
print spGetYesterdaysDate;

sub spGetYesterdaysDate {
my ($sec, $min, $hour, $mday, $mon, $year) = localtime();
my $yesterday_midday=timelocal(0,0,12,$mday,$mon,$year) - 24*60*60;
($sec, $min, $hour, $mday, $mon, $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", $abbr[$mon], $mday, $year+1900;
return $YesterdaysDate;
}

鉴于 Chas 建议的 strftime 解决方案的“未指定”记录行为，如果您无法测试，这种方法可能会更好跨多个平台的预期但不保证的结果。

Answer 4

使用 Time::Piece。

use strict;
use warnings;
use 5.010;

# These are core modules in Perl 5.10 and newer
use Time::Piece;
use Time::Seconds;

my $yesterday = localtime() - ONE_DAY;
say $yesterday->strftime('%b %d %Y');

请注意，在某些临界情况下，例如夏令时开始，这可能会出错。
在这种情况下，以下版本的行为确实正确：

use strict;
use warnings;
use 5.010;

# These are core modules in Perl 5.10 and newer
use Time::Piece;
use Time::Seconds;

my $now = localtime();
my $yesterday = $now - ONE_HOUR*($now->hour + 12);
say $yesterday->strftime('%b %d %Y');

或者，您可以使用 DateTime 模块，如另一个答案中所述。但这不是核心模块。

Answer 5

大多数用户建议的解决方案是错误的！

localtime(time() - 24*60*60)

您能做的最糟糕的事情就是假设1天= 86400秒。

示例：时区是 America/New_York，日期是 Mon Apr 3 00:30:00 2006

timelocal 为我们提供 1144038600

当地时间(1144038600 - 86400) = 2006 年美国东部时间 4 月 1 日星期六 23:30:00

哎呀！

正确且唯一的解决方案是让系统函数规范化值

$prev_day = timelocal(0, 0, 0, $mday-1, $mon, $year);

，或者让日期时间框架（DateTime、Class::Date 等） 执行相同的操作。

就是这样。

Answer 6

localtime(time() - 24*60*60)

Answer 7

我的 $yesterday = time();
$yesterday = $yesterday - (24*60*60);

24 表示 24 小时，60 表示小时 60 分钟，60 表示分钟 60 秒
time() 将返回实际时间戳，246060 将删除一天的秒数
之后只需执行以下操作：
当地时间($昨天);

Answer 8

This is how I do it.

#!/usr/bin/perl

use POSIX qw(strftime);

$epoc = time();
$epoc = $epoc - 24 * 60 * 60;

$datestring = strftime "%F", localtime($epoc);

print "Yesterday's date is $datestring \n";