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"; |