[roby1234]

Hi - I'm new to perl and I am trying to do a date string check. What I want is my script to check for the following - 4/12/2005 or 04/12/2005 or 4/12/05 or 04/12/05. Is this correct:

($date =~ m/[\2d]+\/[\2d]+\/[\4d]+/) or

($date =~ m/[\02d]+\/[\02d]+\/[\4d]+/)or

($date =~ m/[\2d]+\/[\2d]+\/[\2d]+/)or

($date =~ m/[\02d]+\/[\02d]+\/[\4d]+/)

Then if it is correct I want it to convert the date to: April 12, 2005, which I haven't figured out yet. Any suggestions would be greatly appreciated.

Thank you in advance.

[Chas]

This is kind of a bit overkill but I'm lazy when it comes to dates and times:

Code:

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;

my @dates = qw(4/12/2005 04/12/2005 4/12/05 04/12/05);

print "Content-type: text/html\n\n";
print "<pre>\n";

foreach my $date (@dates) {
  my ($m, $d, $y) = split m!/!, $date;
  my $fmt = $y > 100 ? "%m/%d/%Y" : "%m/%d/%y";
  print "Date: $date => ";
  print Time::Piece->strptime($date, $fmt)->strftime("%b %d, %Y") . "\n";
}

print "</pre>\n";

You have the year, month and day in the first line and you can do some simple operations on it then use a hash x-ref for month number to month name to format it correctly. I just prefer to abstract all that using something like Time:iece or Class:ate.

~Charlie