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");
> my $pastdate = DateCalc($date, "-3 months");
> print UnixDate($pastdate, " this was 3 months ago ... it looks like %D\n");
> print "\n";
>
> [/test script]
>
> --the output looks like this:
>
> [snip output]
>
> this was 3 months ago ... it looks like 08/08/02
>
> [/snip output]
>
> --this is *almost* what I want ... BUT, i need 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?
Change the %D (or %x) format to: %m/%d/%Y
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
