Gossamer Forum: General: Perl Programming: Mmm.. weird thing with GT::Date

Nov 6, 2008, 2:49 AM

Andy

Veteran / Moderator (18441 posts)

Nov 6, 2008, 2:49 AM

Post #1 of 5

Shortcut

Mmm.. weird thing with GT::Date

Hi,

I'm trying to convert a date - but its just refusing to work :/

Example value for $ssl_exp_date is: Aug 14 23:59:59 2009 GMT

The code I'm trying is:

Code:
   $ssl_exp_date =~ s/\n//; 
   $ssl_exp_date =~ s/ GMT//; 
	#                 Aug 14 23:59:59 2009 
   my $old_format = '%mmm% %dd% %hh%:%mm%%:%ss% %yyyy%'; 
   my $new_format = '%yyyy%-%mm%-%dd%';

I've trimmed the \n from $ssl_exp_date, as that existed from openssl - and then removed GMT, just in case that was throwing it off.

I'm sure I've just missed something *really* simple - but I can't spot it :(

Any suggestions are welcome.

TIA

Andy (mod)
andy@ultranerds.co.uk

Nov 6, 2008, 3:09 AM

Andy

Veteran / Moderator (18441 posts)

Nov 6, 2008, 3:09 AM

Post #2 of 5

Shortcut

Re: [Andy] Mmm.. weird thing with GT::Date In reply to

Ok, not sure if maybe its something to do with the hh:mm:ss bit, but doing:

Code:
   $ssl_exp_date =~ s/\n//; 
   $ssl_exp_date =~ s/ GMT//; 
   $ssl_exp_date =~ s/ \d\d:\d\d:\d\d//;

   my $old_format = '%mmm% %dd% %yyyy%'; 
   my $new_format = '%yyyy%-%mm%-%dd%';