抽取这个词典中所有独立的汉语译文并统计其频次？

原创于 2017-06-09 13:45:18 发布 · 269 阅读

0 ·

CC 4.0 BY-SA版权

初入专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一个使用Perl编写的脚本，该脚本用于处理一个特定格式的字典文件。通过读取文件并解析其中的数据，脚本能够提取并重新组织字典条目中的信息。特别地，它关注于提取含有特殊字符编码的数据项，并对其进行计数及打印。

open(In,"dict.txt");

while(<In>){
	chomp; 
	if(/(.+)=>(.+)/){
		$hash{$2}=$1;
	}  

}

close(In);

$i=0;
foreach $m(sort keys %hash){
	@arr=split(" ",$m);
	foreach $d(@arr){
		if($d=~/[\x80-\xff].+/){  #(存疑）
			$i++;
			print "$d\n";
			print "$i\n";
		}
	}
}