open(In,"dict.txt");
while(<In>){
chomp;
if(/(.+)=>(.+)/){
$Hash{$1}=$2;
}
}
close(In);
foreach $m(sort keys %Hash){
if($m=~/^ab/g){
print "$m\t$Hash{$m}\n";
}
if($m=~/d$/){
print "$m\t$Hash{$m}\n";
}
if($m=~/^[^a].*abc.*[^a]$/){
print "$m\t$Hash{$m}\n"
}
}
找出以abc为前缀、中缀、后缀的词
最新推荐文章于 2022-09-19 03:24:38 发布