If all you want to do is get the manipulate the date format, I recommend using
the built in functions... they won't have the high overhead that Date::Manip
has (which is a lot).
my ($d, $m, $y) = (localtime(time))[3,4,5];
$m++;
$y += 1900;
my $date1 = sprintf( "%02d-%02d-%4d", $m, $d, $y );
my $date2 = sprintf( "%02d/%02d/%4d", $m, $d, $y );
print "$date1\n";
print "$date2\n";
----- Original Message -----
From: Ben Conrad <[EMAIL PROTECTED]>
Subject: Date::Manip and printed date format
> Hello,
>
> I'm using
>
> use Date::Manip;
> $TZ="EST5EDT";
> $date=&ParseDate("today");
> print "Date is $date\n"; # output: Date is 2000051612:16:47
>
> What is the easiest way to get that ouput to look like 05/16/2000 or
> 05-16-2000? I need various date formats for various log files that I'm
> parsing.
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
