#!/usr/bin/perl -w use strict ; use Date::Calc qw(Add_Delta_Days) ;
my ( $todayd, $todaym, $todayy ) = (localtime)[3..5] ; $todaym += 1 ; $todayy += 1900 ; my ($yesty,$yestm,$yestd) = Add_Delta_Days($todayy,$todaym,$todayd, -1) ; print "Today:\t\t$todaym/$todayd/$todayy\nYesterday:\t$yestm/$yestd/$yesty\n" ; -- Henry -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of zilore mumba Sent: Wednesday, December 03, 2008 10:09 AM To: activeperl@listserv.activestate.com Subject: RE: How to get yesterday's date in Perl thanks for the response, but it is still not clear to me. What do I put in qw(Add_Delta_Days)? Thanks Zilore --- On Wed, 12/3/08, Singer, Erich <[EMAIL PROTECTED]> wrote: From: Singer, Erich <[EMAIL PROTECTED]> Subject: RE: How to get yesterday's date in Perl To: [EMAIL PROTECTED], activeperl@listserv.activestate.com Date: Wednesday, December 3, 2008, 4:03 PM Hello use Date::Calc qw(Add_Delta_Days) Erich ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of zilore mumba Sent: Wednesday, December 03, 2008 7:05 AM To: activeperl@listserv.activestate.com Subject: How to get yesterday's date in Perl After brouwsing a lot ofdocumentation I cannot find how to get yesterday's or tomorrow's date in Perl, like `date --date "-1 day" "+%Y%m%d"` in bash. Is this possible in Perl? I am making date directories, like 20081203. If I add, I get a problem at the end/begining of the month, I get like 20081131 or 20081200. Thanks for any assistance. Zilore _______________________________________________ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
