|
|
|
Projet:Traduction/*/OutilsOutils
Cette page références les outils indispensables pour la traduction: dictionnaires...
Références "internes"Des références provenant des wikis annexes à Wikipédia. [modifier] Wiktionnaire
[modifier] WikibooksDes références sur Wikibooks : Références externes
[modifier] Dictionnaires multilingues
[modifier] Dictionnaires français
[modifier] Autres projets de traductionAstuces[modifier] Traductions automatiques des liens internesLa traduction d'un article comprend une étape particulièrement fastidieuse : trouver pour chaque lien interne de l'article à traduire l'article auquel il est lié sur http://fr.wikipedia.org par un lien interwiki. L'outil Tradauto vous facilite ce travail en créant un tableau de correspondance des liens internes entre deux langues. Il suffit d'indiquer le titre de l'article à traduire, sa langue, la langue de la traduction, puis de cliquer sur "envoyer". L'outil traducteur d'article de Dom crée également des tableaux de correspondances, en permettant de travailler paragraphe par paragraphe. [modifier] Script Perl de JmfayardSi vous êtes un utilisateur de Linux ou assimilé, vous pouvez utiliser ce script Perl:
produit l'affichage: * .... * [[:it:Gino Paoli]] == [[AUCUN INTERWIKI]] * [[:it:Zucchero (cantante)]] == [[Zucchero]] * [[:it:musica]] == [[Musique]] * [[:it:lingua spagnola]] == [[Espagnol]] * [[:it:lingua francese]] == [[Français]] * [[:it:Milano]] == [[Milan]] * [[:it:1994]] == [[1994]] * [[:it:Billboard]] == [[Billboard magazine]] * ....
#!/bin/perl if ($#f5ffff<3) { print "Usage : perl interwikilinks.pl Code_langue_origine Code_Langue_destination Article_origine\n\n"; print "Exemple : perl interwikilinks.pl de fr Georg_Philipp_Telemann \n"; } ($origin_LANG,$dest_LANG,$ARTICLE) = @ARGV; sub what_links_here() { ($LANG, $NAME) = @_ ; my ($ligne, $link, @result); @result=(); open( IN, "wget 'http://$LANG.wikipedia.org/w/index.php?title=$NAME&action=raw' -O - 2>/dev/null |") ; while( $ligne=<IN> ) { while ( $ligne =~ m/\[\[([^\]:]+)\]\]/g ) { $link = $1; $link =~ s/\|.*$// ; #ffffff "$link\n"; push @result, $link; } } close( IN ); return @result; } sub interwiki() { my ($origin_LANG, $dest_LANG, $ARTICLE) =@_ ; my ($link, $ligne); open( IN, "wget 'http://$origin_LANG.wikipedia.org/w/index.php?title=$ARTICLE&action=raw' -O - 2>/dev/null |") ; while( $ligne=<IN> ) { while ( $ligne =~ m/\[\[$dest_LANG:([^\]:]+)\]\]/g ) { $link = $1; $link =~ s/\|.*$// ; #ffffff "$link\n"; return "$link"; } } return "AUCUN INTERWIKI"; } @l_ARTICLE=&what_links_here( $origin_LANG, $ARTICLE ) ; foreach $link (@l_ARTICLE) { $interwiki = &interwiki( $origin_LANG, $dest_LANG, $link ); print "* [[:$origin_LANG:$link]] == [[$interwiki]]\n"; } |