Help for this page

Select Code to Download


  1. or download this
    use Time::Piece qw(localtime);
use Time::Seconds qw(ONE_DAY);
...
print "Today: ", $t->ymd(),"\n";
print "Yesterday: ", $yesterday->ymd(),"\n";
print "Tomorrow: ", $tomorrow->ymd(),"\n";
  2. or download this
    my $t = localtime->strptime(localtime->ymd(), '%Y-%m-%d');
my $yesterday = $t - ( 0.5 * ONE_DAY() );
...
print "Today: ", $t->ymd(),"\n";
print "Yesterday: ", $yesterday->ymd(),"\n";
print "Tomorrow: ", $tomorrow->ymd(),"\n";
  3. or download this
    my $t = localtime->strptime('2013-03-11', '%Y-%m-%d');
my $yesterday = $t - ONE_DAY();
...
Today: 2013-03-11
Yesterday: 2013-03-09
Tomorrow: 2013-03-12