in reply to Fast(er) date parsing

my( $day, $month, $date, $time, $hour, $min, $sec, $year);
($day,$month,$date,$time,$year)=split(" ","Mon Jul 17 17:59:31 2000");
($hour,$min,$sec)=split(":",$time);

[download]

Replies are listed 'Best First'.
(crazyinsomniac) RE: Answer: Fast(er) date parsing
by crazyinsomniac (Prior) on Jul 19, 2000 at 03:03 UTC
    Sorry about that
     my $day;
 my $month;
 my $date;
 my $time;
  my $hour;
  my $min;
  my $sec;
 my $year;

 ($day,$month,$date,$time,$year)=split(" ","Mon Jul 17 17:59:31 2000")
+;
 ($hour,$min,$sec)=split(":",$time);

    [download]
     ______________________________________________
|_____¸.·ooO--(> cRaZy is co01. <)--Ooo·.¸_____|
 ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
[reply]
[d/l]
      my ($day,$month,$date,$hour,$min,$sec,$year)=split /[ :]/,"Mon Jul 17 
+17:59:31 2000";

      [download]
      cLive ;-)
[reply]
[d/l]

In Section Seekers of Perl Wisdom