Return to updateRS1.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.3, 2001/11/01 01:45:00 | version 1.4, 2001/12/05 00:17:53 |
---|---|
Line 86 foreach $d(@dictionaries) | Line 86 foreach $d(@dictionaries) |
chomp; | chomp; |
s/\s*$//; | s/\s*$//; |
($aa,$b)=split(/\//); | ($aa,$b)=split(/\//); |
$aa=~tr/£³/Ċċ/; | |
$a= uc $aa; | $a= uc $aa; |
$words{$a}.=$b || "!"; | $words{$a}.=$b || "!"; |
} | } |