Re: How to subtract date by 1 day

[andreas1234567]

Using DateTime:

$ perl -l
use strict;
use warnings;
use DateTime;
my $str = '2007_12_13_04_49_15';
$str =~ /^(\d+)_(\d+)_(\d+)_(\d+)_(\d+)/;
my $dt = DateTime->new( 
  year   => $1,
  month  => $2,
  day    => $3,
  hour   => $4,
  minute => $5
);
print $dt->ymd . ' ' .  $dt->hms;
$dt->add( days => -1 );
print $dt->ymd . ' ' .  $dt->hms;
__END__
2007-12-13 04:49:00
2007-12-12 04:49:00

[ewhitt]

Thanks everyone for your input. 2008-01-01 seems to break things. Date::Simple returns 2007-00-01.

[andreas1234567]

Date::Simple (3.02) works for me (on Linux):

use strict;
use warnings;
use Date::Simple qw(date);
my $d = date("2008-01-01");
my $yesterday = $d - 1;
print $yesterday;
__END__
2007-12-31

Check the test reports and consider filing a bug report if the latest version doesn't work for you.