version 1.3, 2001/11/01 01:45:00
|
version 1.5, 2001/12/10 20:37:23
|
Line 64 my $nf;
|
Line 64 my $nf;
|
|
|
#open WARN, ">$warnings"; |
#open WARN, ">$warnings"; |
|
|
%forbidden=checktable('equalto')? getequalto : (); |
#%forbidden=checktable('equalto')? getequalto : (); |
|
|
|
|
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
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 || "!"; |
} |
} |