@ProcessLines = `qprocess.exe | grep parser.exe`; chRLinux联盟
while(scalar(@ProcessLines) > 0) chRLinux联盟
{ chRLinux联盟
    foreach $pl (@ProcessLines) chRLinux联盟
    { chRLinux联盟
        print $pl; chRLinux联盟
        $pl =~ m/\S+\s+\S+\s+[0-9]+\s+([0-9]+)\s+\S+/; chRLinux联盟
        $pid = $1; chRLinux联盟
        print $pid."\n"; chRLinux联盟
        if(kill 0 => $pid) chRLinux联盟
        { chRLinux联盟
            print "i should terminate:".$pid."\n"; chRLinux联盟
            $CommandLine = "ntsd -c q -p ".$pid."&>TEMP.TXT"; chRLinux联盟
            print $CommandLine."\n"; chRLinux联盟
            `$CommandLine`; chRLinux联盟
            $ReturnValue = 1; chRLinux联盟
        } chRLinux联盟
    } chRLinux联盟
    @ProcessLines = `qprocess.exe | grep parser.exe`; chRLinux联盟
}