perl滑动匹配代码

?open (ansf1,"$ansFile") or die "8n"; ?#以下代码统计答案中的语音总时长 ?$answerflag=0; ?$position1=0; ?$dataflag1=0; ?$answer_total=0; ?while($ansfline1=<ansf1>) { #$pre1=$position1; #$position1 = tell(ansf1); chomp($ansfline1); if ($ansfline1 eq ""data"") ? ? { $dataflag1=1; print "ansfline1 is $ansfline1n"; $position1 = tell(ansf1); next; } $pre1=$position1; ? ? ? ? ? ? ? ? # ? 这两段是关键：记住上一行 $position1 = tell(ansf1); ? ? ? # ??这两段是关键：记住上一行 if($dataflag1==1) { print "dataflag1 is $dataflag1 and ?line is $ansfline1n"; if($answerflag==0) { if ( !( $ansfline1 =~ /"/ )) ? { ? $answerflag=1; ? $answer_time1=$ansfline1; ? $pre21=tell(ansf1); ? ? ? } } elsif($answerflag==1) { ? ?if ( ! ( $ansfline1=~/"/ )) ? { ? $answerflag=2; ? $answer_time2=$ansfline1; ? ? ? } else { #$position_minus=$position-$pre; ?seek(ansf1,$pre1,0); ? ? ?#回退1行 ? $position_change1 = tell(ansf1); ? ? ? #print "position minus 1 is $position_change1n"; ? $answerflag=0; } ? ? } elsif($answerflag==2) { ? #if($ansfline1=~ /[x80-xFF]+?/) ? if($ansfline1=~/"/) ? { ? #print "computen"; ? $count++; ? print "$count ?$ansfline1n"; ? $answer_total+=$answer_time2-$answer_time1; ? #print(frecOut "find $resfline in $resFile is not match in $ansFilen"); ? } ? else ? { ? ? seek(ansf1,$pre21,0); ? ? #回退两行 ? $position_change1 = tell(ansf1); ? ? ? #print "position minus 2 is $position_changen"; ? } ?? ? $answerflag=0; ?? ?? } #if( !( $ansfline=~/"/ ) ) #{ # ?$answer_time1=$ansfline; #} ? ?} ?} close(resf); close(ansf1);