![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updateRS1.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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 || "!"; |
| } | } |