Shell Programming and Scripting

#!/usr/bin/perl
$str='"7/3/2009 09:07:12 PM","xxxx"' ;
$str =~ s/\"//g ;
@arr=split(/,/, $str);
@datestr=split(/ /,$arr[0]);
@daystr=split(/\//,$datestr[0]);
@timearr=split(/:/, $datestr[1]);
$merid=$datestr[2];

if ($merid =~ m/PM/ )
{
	if ( $merid ge 10 ) {
           $hour = 12 + $timearr[0];
           }
        else {
           $hour= 24 - $timearr[0];
       }
}
else
{
$hour=$timearr[0];
}

if ($daystr[0] =~ m/\d\d/) {
       $month=$daystr[0];
  }
else
{
    $month="0".$daystr[0];
}
if ($daystr[1] =~ m/\d\d/) {
       $day=$daystr[1];
  }
else
{
    $day="0".$daystr[1];
}
$year=$daystr[2];

$daystr='"'.$year.$day.$month.'", ';
$timestr='"'.$hour.":".$timearr[1].":".$timearr[2].'", ';
$val='"'.$arr[1].'"';

printf("%s%s%s",$daystr,$timestr,$val,);

arr=`sed 's/"//g;s/,/ /g;' file`

for((i=0;i<${#arr[@]};i++))
do
date=`echo ${arr[$i]} | cut -d ' ' -f 1`

day=`echo $date | cut -d '/' -f 1`

mon=`echo $date | cut -d '/' -f 2`

year=`echo $date | cut -d '/' -f 3 `

time=`echo ${arr[$i]} | cut -d ' ' -f 2`

format=`echo ${arr[$i]} | cut -d ' ' -f 3`

data=`echo ${arr[$i]} | cut -d ' ' -f 4-`

hour=`echo $time | cut -d ':' -f 1 `

Minsec=`echo $time | cut -d ':' -f 2-`

if [[ $format == 'PM' ]]
then
let hour+=12
fi
mon=`printf "%02d" $mon`
day=`printf "%02d" $day`
echo \"$year$mon$day\",\"$hour:$Minsec\",\"$data\"
done