Help for this page

Select Code to Download


  1. or download this
     
Thurs,July,5,2012,123,456,789
Thurs,July,5,2012,123,456,789,Fri,July,6,2012
  2. or download this
    my $line;
my ($dow,$mon,$day,$year,$num1,$num2,$num3,$dow2,$mon2,$day2,$year2) =
+ "";
foreach $line (@array){
    ($dow,$mon,$day,$year,$num1,$num2,$num3,$dow2,$mon2,$day2,$year2) 
+= split /[,]/, $line; 
    print "$dow2\n";