Re: Find 30 days from today's date

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use DateTime;

my $thirty_days_ago = DateTime->today->subtract(days => 30);
say $thirty_days_ago;

__END__
2013-05-08T00:00:00
[download]

Comment on Re: Find 30 days from today's date Download Code

Replies are listed 'Best First'.
Re^2: Find 30 days from today's date by ikegami (Patriarch) on Jun 09, 2013 at 06:05 UTC
If he wants the date where his computer is located (as opposed to the date somewhere in Europe), `my $thirty_days_ago = DateTime->today(time_zone => 'local')->subtract( +days => 30);` [download] Note that the above solution will fail two days a year in time zones with no midnight on a DST change. (There is at least one such time zone.) Workaround: `my $thirty_days_ago = DateTime->now(time_zone => 'local')->set_hour(12 +)->subtract(days => 30);` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Find 30 days from today's date
by ikegami (Patriarch) on Jun 09, 2013 at 06:05 UTC

my $thirty_days_ago = DateTime->today(time_zone => 'local')->subtract(
+days => 30);
[download]

Note that the above solution will fail two days a year in time zones with no midnight on a DST change. (There is at least one such time zone.) Workaround:

my $thirty_days_ago = DateTime->now(time_zone => 'local')->set_hour(12
+)->subtract(days => 30);
[download]

[reply]
[d/l]
[select]