perl mysql

$dbh= DBI->connect("dbi:mysql:monitor:127.0.0.1","root","");
$dbh->do(‘SET NAMES gbk;‘);
$dbh2= DBI->connect("dbi:mysql:monitor:127.0.0.1","root","");
$dbh2->do(‘SET NAMES gbk;‘);
$query="select TaskID from t_task where PlanID=$planid and Runed=1 order by TaskID";
$sth = $dbh->prepare($query);
$sth->execute() or die("first layer select failed:$DBI::errstr");
while ($row = $sth->fetchrow_arrayref)
{
    #fetch the result.
    $result = "";
    $found = 0;
    $query2 = "select Result from t_result where TaskID=$$row[0] and RunStatus=0";
    $sth2 = $dbh2->prepare($query2);
    $sth2->execute() or die("second layer select failed:$DBI::errstr");
    while($row2 = $sth2->fetchrow_arrayref)
    {
        $result = $$row2[0];
        $found = 1;
    }
    $sth2->finish;

    if (0==$found)
    {
        next;
    }

#clean result.
     $query2 = "delete from t_result where TaskID=$$row[0]";
     $sth2 = $dbh2->prepare($query2);
     $sth2->execute() or die("third layer select 1 failed:$DBI::errstr");
     $sth2->finish;

     #clean task.
     $query2 = "delete from t_task where TaskID=$$row[0]";
     $sth2 = $dbh2->prepare($query2);
     $sth2->execute() or die("third layer select 2 failed:$DBI::errstr");
     $sth2->finish;

    if ($result eq "")
    {
        next;
    }

    @lines = split(/\n/,$result);
    foreach $line (@lines)
    {
        # print "$date|$hour:$minute|$total|$number_200|$ration\n";
        if ($line =~ m"^(.*)\|(\d+):(\d+)\|(\d+)\|(\d+)\|(\d+\.?\d*)$")
        {            
            $content= "switch_155: ".$1."-".$2.$3." total:".$4."  >200ms:" .$5." ration:".$6."\n";    
            print $content;
                    
       
        }
    }
}

$sth->finish;
$dbh->disconnect();
$dbh2->disconnect();