Date::Manip and ParseDate for TPLs

Trying to capture the current date to include on the TPL output. The TPL includes Perl script for other things which works.

From the code below, the output is a bunch of numbers like "1204922551", how can we format it to be like 3/7/2008 or March 7, 2008?

Code:
BEGIN{
$ENV{TZ} = "US/Central";
};
use Date::Manip;
use Time: Smiley Tongue

arseDate;
my $string1 = localtime(time);
my $date3 = parsedate($string1);

Output:
iwpt_output($date3);

TeamSite Environment: TS 6.7.1 / WIN

Find more posts tagged with

Comments

nipper

Have you read the perldoc for parse::date ?

use Time: Smiley Tongue

arseDate;
$seconds_since_jan1_1970 = parsedate("12/11/94 2pm", %options)

The number you see is the number of seconds since 1970.

So you probably do not want to use parsedate

Use localtime itself

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);

nipper

This page may help

Adam Stoller

This page may help

Personally - I prefer Date::Format

Migrateduser

Close, but need a little help in getting the date format we want.

use Date::Format;
@lt = localtime(time);
my $date3 = asctime(@lt);

Output is: Fri Mar 7 16:02:04 2008
Would like March 7, 2008

nipper

The parameter for time2str in Date::Format would be something like:

%B %e %Y

Migrateduser

Got it - all this fiddling was a good experience for me to learn more about Perl date manipulation.

It looks like this:
use Date::Format;
@lt = localtime(time);
my $date3 = strftime("%B %e, %Y", @lt);

Thanks to those helped out.

Adam Stoller

Got it - all this fiddling was a good experience for me to learn more about Perl date manipulation.

It looks like this:
use Date::Format;
@lt = localtime(time);
my $date3 = strftime("%B %e, %Y", @lt);

Thanks to those helped out.

You can do it a bit simpler (one less variable):

use Date::Format;
my $date3 = time2str("%B %e, %Y", time);