perl关键词检索程序

#找出语音对应的sent文件，将关键词列表中的关键词在sent文件中的时间点输出到一个文件中
#!/bin/perl
use Encode;
# use Encode;

#################在下面的文本中检索关键词#####################

#对 对?

#6.15 6.29 6.29 6.61 #0.0000 #喂 您好 很高 兴 为 您 服务? #6.93 7.04 7.04 7.3 7.3 7.49 7.49 7.62 7.62 7.69 7.69 7.83 7.83 8.33 #0.0000 #现在 就是 一个 五 元 卡 基础 月租费? #12.95 13.19 13.19 13.51 13.51 13.75 13.75 13.9 13.9 14.03 14.03 14.31 14.31 14.62 14.62 15.09 #0.0000 ################################################################ # $dat="测试文本"; # $str=decode("gb2312",$dat); # print encode("gb2312",$str),"n"; if($#ARGV < 2 ) { print "usage:perl key_search.pl wavlist ?keywordlist resultn"; exit(-1); } my($wavlist,$keywordlist,$keyresult)=@ARGV; ? ? ? ? ? open(WAV,"<$wavlist") or die "1n"; ? ?? ? ? open(KEYWORD,"<$keywordlist") or die "3n"; ? ? open(RESULT,">$keyresult") or die "4n"; $pos=0; $kresult;? $count=0;? $leap=0; ? ? ? my @posarray=(); ? ? my @resultarray=(); ? ? my @wav = (); ? ? my @sent = (); ? ? my @keyword = (); ? ? my @tmpresult=(); ? ? @wav = <WAV>; ? ? $sentpath=@wav[0]; ? ? chomp($sentpath); ? ? $sentpathtmp=$sentpath; ? ? @segPath = split( //,$sentpathtmp ); ?#print "segPath is @segFilen"; ?$sentwav=$segPath[-1]; ?chomp($sentwav); ?$sentwav=~s/.wav//g; ?#print "$sentwavn"; ?$sentpathtmp=~s/.wav//g; ?$sentpathtmp=~s/$sentwav//g; ? ?#print "sentpath is $sentpathtmpn"; ?system ( "dir /b /s /O:N ?$sentpathtmp*_sent.txt > sent.list "); ?open(SENT,"<sent.list") or die "2n"; ? ? ?? ? ? @sent = <SENT>; ? ? @keyword = <KEYWORD>; ? ?? ? ? for my $lwav (@wav)? ? ? { ? ?chomp $lwav; ? ?@segFile = split( //,$lwav ); ?#print "segFile is @segFilen"; ?$tmpwav=$segFile[-1]; ?$tmpwav=~s/.wav//g; ?chomp($tmpwav); ?$tmpwav=~s/s//g; ?#print "wav is $tmpwavn"; ? ?for my $lsent (@sent) ? ?{ ? ? chomp($lsent); ? ? #print ("lsent is $lsentn"); ? ? if($lsent=~/$tmpwav/g) ? ? { ? ? print(RESULT "$lwavn"); ? ? #print "wav is $lwav sent is $lsentn"; ? ? for my $lkeyword (@keyword) ? ? ? ?{ ? ? ? ? chomp($lkeyword); ? ? ? ? @segkeyword = split( /=/,$lkeyword ); ? ? ? ?#print "segFile is @segFilen"; ? ? ? ?$tmpkey=$segkeyword[0]; ? ? ? ?$dtmpkey=decode("gb2312",$tmpkey); ? ? open(FSENT,"<$lsent") or die "5n"; ? ? ? ? while($flsent=<FSENT>) ? ? { ? ? ?chomp($flsent); ? ? ?@segsent = split( /s/,$flsent ); ? ? ?if($flsent =~ /[x80-xFF]+?/) ? ? ?{ ? ? ? $leap=0; ? ? ? $count=0; ? ? ? for my $lresult (@segsent) ? ? ? { ? ? ? $dresult=decode("gb2312",$lresult); ? ? ? if($dresult=~/$dtmpkey/) ? ? ? { ? ? ? $find=1; ? ? ? push @posarray,$count; ? ? ? push @resultarray,$lresult;? ? ? ? #$pos=$count; ? ? ? #print(RESULT "$lresult "); ? ? ? } ? ? ? $count++; ? ? ? } ? ? ?} ? ? ?if($leap==1) ? ? ?{ ? ? ? if($find==1) ? ? ? { ? ? ? $inumber=@posarray; ? ? ? for($i=0;$i<$inumber;$i++) ? ? ? ? ? ? ? ? ? ? {? ? ? ? ? ? ? ? ? ? ? ? ?$pos=@posarray[$i]; ? ? ? ? ? ? ? ? ? ? ? ?#print(RESULT "@resultarray[$i] @segsent[$pos*2] @segsent[$pos*2+1] "); ? ? ? ? ? ? ? ? ? ? ? ?$tmpline="@resultarray[$i] @segsent[$pos*2] @segsent[$pos*2+1]"; ? ? ? ? ? ? ? ? ? ? ? ?push @tmpresult,$tmpline; ? ? ? ? ? ? ? ? ? ? } ? ? ? #for my $pos (@posarray) and for my $kresult (@resultarray)? ? ? ? #{ ? ? ? # print(RESULT "$kresult @segsent[$pos*2] @segsent[$pos*2+1] "); ? ? ? #} ? ? ? #print(RESULT "n"); ? ? ? $find=0; ? ? ? @posarray=(); ? ? ? ? ? ?@resultarray=(); ? ? ? } ? ? ? ? ? ?} ? ? ?if($leap==2) ? ? ?{ ? ? ? ?$inumber1=@tmpresult; ? ? ? for($j=0;$j<$inumber1;$j++) ? ? ? ? ? ? ? ? ? ? {? ? ? ? ? ? ? ? ? ? ? ? ?$tmp=@tmpresult[$j]; ? ? ? ? ? ? ? ? ? ? ? ?print(RESULT ?"$tmp $flsentn"); ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? } ? ? ? ? ? ? ? ? ? ? @tmpresult=(); ? ? ? ?next; ? ? ?} ? ? ?$leap++; ? ? ? ? ? } ? ? close(FSENT); ? ? ? ? ? } ? ? } ? ? ? ?} ? ? ?} ? ?? ? ?? ? ?? ? ?? close(WAV); close(SENT); close(KEYWORD); close(RESULT);