Shaunn Johnson wrote:
>
> --Howdy:
Hello,
> ## get first of this month as anchor ##
>
> my $day_now=(localtime())[3];
> my $firstday=$day_now - ($day_now-1);
The first day of the month is always 1 so there is no need to calculate
it!
my $firstday = 1;
> my $month_now=(localtime())[4]+1;
> m
--Howdy:
-- // This is mostly for archives sake just in case I forget how //
-- // I did this //
--To recap, the purpose of this exercise was to create a few date variables
to use
--in an SQL script. I wanted the dates to have a 3 months span every time
--I run the script (which would be once a
Shaunn Johnson wrote:
>
> --thanks for the reply:
>
> --let me rephrase my question this way. i have just installed
> --the Date::Manip module. i have a test that looks like this:
>
> [test script]
>
> #!/usr/bin/perl -w
>
> use strict;
> use Date::Manip;
>
> my $date = ParseDate("today");
1/2002)
freq fliers end run is 10/08/02 # --- i want this to be 10/31/2002
[/snip results]
--sorry for not being clear.
--thanks again!
-X
-Original Message-
From: Johnson, Shaunn
Sent: Friday, November 08, 2002 5:55 PM
To: 'Beau E. Cox'; [EMAIL PROTECTED]
Subject: RE: set
to change the
--two digit year into a 4 digit year. is there a method
--while using, say, Date::Manip, to change the results
--from 08/08/02 to 08/08/2002?
-X
-Original Message-
From: Beau E. Cox [mailto:beau@;beaucox.com]
Sent: Friday, November 08, 2002 4:25 PM
To: Johnson, Shaunn;
Hi -
A silly question is one not asked...
This script:
#!/usr/bin/perl
use strict;
use warnings;
# scalar context - prints 'readable' date
my $now = localtime;
print "$now\n";
# list context - returns a list of date parts
my @parts = localtime;
p
