Help for this page

Select Code to Download


  1. or download this
    my $string = 'Aug 20, 2007 12:42 PM';
if ($string =~ /(\w{3}) (\d+), (\d{4}) (\d+):(\d{2}) (.+)/) {
   # do stuff
}
  2. or download this
    if ($string =~ /(\w{3}) (\d+), (\d{4}) ((\d+):(\d{2}) (.+)?)/) {
   # do stuff
}