1 changed files with 3 additions and 0 deletions
+ 3
- 0
bin/autodoc_process.pl
View File
| foreach my $word ( split(/ /,$txt) ) { | foreach my $word ( split(/ /,$txt) ) { | ||||
| $word = lc($word); | $word = lc($word); | ||||
| my $lang; | my $lang; | ||||
| print "$word "; | |||||
| my $q = sqlquery($dbh, "SELECT lang FROM dict WHERE word like ?", $word); | my $q = sqlquery($dbh, "SELECT lang FROM dict WHERE word like ?", $word); | ||||
| while(my ($l) = $q->fetchrow_array()) { | while(my ($l) = $q->fetchrow_array()) { | ||||
| print "$lang "; | |||||
| $lang = $l; | $lang = $l; | ||||
| } | } | ||||
| print "\n"; | |||||
| push @larr, $lang if defined $lang; | push @larr, $lang if defined $lang; | ||||
| $lcnt{$lang}++ if defined $lang; | $lcnt{$lang}++ if defined $lang; |
Loading…