Metatrans :: Base. Metatrans :: Base ist eine abstrakte Basisklasse zum Erstellen von Meta-Übersetzer-Plug-Ins.
Jetzt downloaden

Metatrans :: Base. Ranking & Zusammenfassung

Metatrans :: Base. Stichworte

Plugin Perl-Modul Perl Basisklasse Meta-Übersetzer-Plug-Ins Meta-Übersetzer.

Metatrans :: Base. Beschreibung

Metatrans :: Base ist eine abstrakte Basisklasse zum Erstellen von Meta-Übersetzer-Plug-Ins. Metatrans :: Base ist eine abstrakte Basisklasse zum Erstellen von Meta-Übersetzer-Plug-Ins.synopsis # Dies ist kein Arbeitsbeispiel. Es dient nur zur Illustration. # Für ein Arbeiten siehe Metatrans :: UltralinguNeet-Quellcode. Paket Metatrans :: MYPLUGIN; Verwenden Sie Metatrans :: Base; Verwenden Sie vars qw (@isa); @Isa = QW (Metatrans :: Base); Verwenden Sie HTTP :: Anfrage; Verwenden Sie URI :: Escape; Sub New {My $ Class = Schicht; meine% Optionen = @_; $ Optionen {host_server} = "www.some-online-translator.com", sofern nicht (definierte $ Optionen {host_server}); Meine $ self = New Metatrans :: Base (% Optionen); $ self = segne $ selbst, $ class; # Unterstützte Translation Anfahrt: # Englisch Deutsch # Englisch Französisch # Englisch Spanisch $ self-> set_langanguages ('eng', 'ger', 'fre', 'spa'); $ selbst-> set_dir_1_to_all ('eng'); $ selbst-> set_dir_all_to_1 ('eng'); ergib $ selbst zurück; } sub create_request {mein $ self = schalte; mein $ expression = wechseln; mein $ src_lang_code = Schicht; mein $ dest_lang_code = Schicht; # Unsere Sprache-Codes-to-Server-Sprachcodes-Konvertierungstabelle Meine% Tabelle = (deu => 'eng', ger => 'deis', fre => 'fra', spa => 'esp'); Senden Sie neue http :: anfrage ('erhalten', 'http://www.some-online-translator.com/translate.cgi?'. 'expr ='. URI_EScape ($ Expression). ''. 'SRC =' . $ Tabelle {$ src_lang_code}. ''. 'dst ='. $ Tabelle {$ dest_lang_code}); } sub process_response {mein $ self = wechseln; meine $ Inhalte = Schicht; # Wir kümmern uns hier nicht darum, aber # In einigen Fällen müssen wir vielleicht my $ src_lang_code = schuppen; mein $ dest_lang_code = Schicht; mein @result; während ($ Inhalt = ~ m | ([^

Metatrans :: Base. Zugehörige Software