Return to updateRS1.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.2, 2001/10/31 03:07:29 | version 1.4, 2001/12/05 00:17:53 |
---|---|
Line 37 cicles_number=1. | Line 37 cicles_number=1. |
use locale; | use locale; |
use DBI; | use DBI; |
use POSIX qw (locale_h); | use POSIX qw (locale_h); |
use lib "../lib"; | |
use chgkfiles; | use chgkfiles; |
use dbchgk; | use dbchgk; |
open (STDERR,">errors"); | open (STDERR,">errors"); |
Line 85 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 || "!"; |
} | } |