最近写的一个perl程序,通过关键词匹配统计其出现的频率,让人领略到perl正则表达式的强大,程序如下:
#!/usr/bin/perluse strict;my (%hash,%hash1,1)">@array);while(<>){ s/\r\n//; my $line; if(/-(.+?)【(.+?)】【(.+?)】(定单积压)/){ $line=$1.'.*'.$2.4push @array,1)">$_ unless exists $hash{}; $line}+=1;} elsif(/-(.+?)【(.+?)】(.+?)【(.+?)】/;}}while(my($key,1)">$value)=each %hash$key =~ s/(\()(.+)(\))/\\$1$2\\$3/foreach $index(){ if($index =~ /$key/$hash1{$index}=$valuelast; }}}$key(sort {$b}<=>$a}} keys %hash1){ print "$key,$hash1{$key}\n;}
总结
以上是内存溢出为你收集整理的如何通过关键词匹配统计其出现的频率全部内容,希望文章能够帮你解决如何通过关键词匹配统计其出现的频率所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)