Metatrans :: base Metatrans :: base est une classe de base abstraite pour la création de plug-ins méta-traducteur.
Télécharger maintenant

Metatrans :: base Classement & Résumé

Metatrans :: base Mots clés

brancher Module Perl perl classe de base méta-traducteur plug-ins méta-traducteur

Metatrans :: base La description

MetaTrans :: Base est une classe de base abstraite pour la création de plug-ins méta-traducteur. MetaTrans :: Base est une classe de base abstraite pour la création de plug-ins méta-traductrice # Ceci n'est pas un exemple de travail. Il sert uniquement d'illustration. # Pour un travail en activité Voir Metatrans :: UltraLinguanet Code source. Paquet Metatrans :: MyPlugin; Utilisez Metatrans :: Base; utiliser vars qw (@isa); @Isa = qw (Metatrans :: base); Utilisez http :: Demande; Utilisez URI :: ÉVALES; Sous nouveau {My $ classe = Shift; mon% options = @_; $ options {host_server} = "www.some-online-translator.com" Sauf si (défini $ options {host_server}); My $ Self = Nouveau métatrans :: Base (% options); $ self = bénisse $ auto, $ classe; # Soutien à la traduction: # Anglais allemand # anglais français # français espagnol $ auto-> set_languages ("ger", "fre", "spa"); $ auto-> set_dir_1_to_all ('fre'); $ auto-> set_dir_all_to_1 ('fre'); retourner $ moi; } Sub Create_Request {My $ Self = Shift; mon $ expression = shift; mon $ src_lang_code = shift; mon $ destin_lang_code = shift; # Notre table de conversion de code-de-ligne-de-ligne-à-serveur-serveur-code mon% Table = (fra => 'eng', ger => "deu ', fre =>" FRA', SPA => "ESP '); Retour Nouveau http :: Demande ('Get', 'http://www.some-online-translator.com/translate.cgi?'. 'Expr ='. Uri_cape ($ expression). ''. "SRC = ' . $ Table {$ src_lang_code}. ''. 'DST ='. $ Table {$ destin_lang_code}); } Sub Process_Response {My $ Self = Shift; mon sommet $ = shift; # Nous ne nous en soucions pas ici, mais # dans certains cas, nous pourrions avoir besoin de prendre soin de mon $ src_lang_code = shift; mon $ destin_lang_code = shift; mon @Result; tandis que ($ contenu = ~ m | ([^

Metatrans :: base Logiciels associés