Re: changing time date format.

A solution with the big DateTime module family

#!/usr/bin/perl -l
# 08/24/06 09:30 => Thursday, August 24th  9:30am

use DateTime::Format::Strptime;

my $format_input  = '%D %H:%M';
my $format_output = '%A, %B %eth %l:%M%P';

my $Strp = new DateTime::Format::Strptime(
  pattern     => $format_input,
  locale      => 'en_US',
  time_zone   => 'America/New_York',
);

## Start
my $date_time = '08/24/06 09:30';                # 1. Get the date/tim
+e
my $dt        = $Strp->parse_datetime( $date );  # 2. Convert to DateT
+ime object
my $newtime   = $dt->strftime( $format_output ); # 3. Output the new d
+ate/time
print $newtime;
## End
[download]

Updated: Solution with the Date::Format and Date::Parse modules

#!/usr/bin/perl -l
# 08/24/06 09:30 => Thursday, August 24th  9:30am

use Date::Parse;
use Date::Format;
use Date::Language;

my $format    = '%A, %B %o %l:%M%P';
my $language  = Date::Language->new('English');

## Start
my $date_time = '08/24/06 09:30';
my $time      = $language->str2time( $date_time );     # 1. Parse
my $newtime   = $language->time2str( $format, $time ); # 2. Output
print $newtime;
## End
[download]

Comment on Re: changing time date format. Select or Download Code

Replies are listed 'Best First'.
Re^2: changing time date format. by pglinx (Acolyte) on Aug 22, 2006 at 12:57 UTC
I used the updated solution but for some reason I get Thursday, August 24th 9:30P I get P for every time instead of am or pm Thanks	[reply]
Re^3: changing time date format. by davorg (Chancellor) on Aug 22, 2006 at 13:16 UTC
What operating system are you using? Support for the %P format code isn't universal. Take a look at the documentation for "strftime" on your system. You could try using %p instead. Or, alternatively, just use the 24 hour clock (%k in place of %l in the output format string) - that's far more readable in my opinion. Personally, I'd use the DateTime modules to solve this problem. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re^4: changing time date format. by pglinx (Acolyte) on Aug 22, 2006 at 13:48 UTC
Ok, I got it to work, one more question For some reason I can run it from the shell but when I incorporate it into my script it crashes it. and only crashes it from a browser, what am I missing? { use Date::Parse; use Date::Format; use Date::Language; $format = '%A, %B %o %l:%M%p'; $language = Date::Language->new('English'); ## Start $date_time = '08/24/06 09:30'; $time = $language->str2time( $date_time ); # 1. Parse $newtime = $language->time2str( $format, $time ); # 2. Output { print "$newtime\n"; } }	[reply]
Re^5: changing time date format. by davorg (Chancellor) on Aug 22, 2006 at 13:56 UTC
Re^2: changing time date format. by pglinx (Acolyte) on Aug 24, 2006 at 13:59 UTC
Could you tell me which Date module this is exactly there seems to be many different ones out there.	[reply]


Perl Monk, Perl Meditation
	PerlMonks