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 result\n";
exit(-1);
}




my($wavlist,$keywordlist,$keyresult)=@ARGV;
 
 
 



    open(WAV, "<$wavlist") or die "1\n";
    
    open(KEYWORD, "<$keywordlist") or die "3\n";
    open(RESULT, ">$keyresult") or die "4\n";
$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 @segFile\n";
 $sentwav=$segPath[-1];
 chomp($sentwav);
 $sentwav=~s/\.wav//g;
 #print "$sentwav\n";
 $sentpathtmp=~s/\.wav//g;
 $sentpathtmp=~s/$sentwav//g;
 
 #print "sentpath is $sentpathtmp\n";
 system ( "dir \/b \/s \/O:N  $sentpathtmp\*_sent\.txt > sent.list ");
 open(SENT, "<sent.list") or die "2\n";
 
    
    @sent = <SENT>;
    @keyword = <KEYWORD>;