%perl> my $langs = $dbh->selectall_arrayref("SELECT tag,realname FROM languages WHERE langid>0 ORDER BY realname"); my @langs = map { $_->[0] } @{ $langs }; my %mapping = map { $_->[0] => $_->[1] } @{ $langs }; my @langshtml; my $format = '%s'; foreach my $curlang (@langs) { my $vislang = $mapping{$curlang}; $vislang =~ s/\s+/ /g; my $html = sprintf($format, &utils::armorurl($curlang), $vislang); push @langshtml, $html; } %perl>
Warning: If there are a lot of entries, these will take a long time to generate, as it's all being done on the fly. Please be patient.
Generate An XML Dump To/From Lojban And: