| print "$word "; | 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 "; | |||||
| print "$l "; | |||||
| $lang = $l; | $lang = $l; | ||||
| } | } | ||||
| print "\n"; | print "\n"; |