Metatrans :: Base. MetaTrans :: Base é uma classe base abstrata para criar plug-ins de meta-tradutor.
Baixe Agora

Metatrans :: Base. Classificação e resumo

Metatrans :: Base. Tag

plugar Módulo Perl. perl classe base. plug-ins meta-tradutor Meta-tradutor

Metatrans :: Base. Descrição

Metatrans :: Base é uma classe base abstrata para criar plug-ins de meta-tradutor. Metatrans :: Base é uma classe base abstrata para criar plug-ins meta-tradutor.synopsis # Este não é um exemplo de trabalho. Serve apenas para a ilustração. # Para um trabalho veja Metatrans :: código fonte Ultralinguanet. Pacote Metatrans :: Myplugin; Use Metatrans :: Base; use vars qw (@isa); @Isa = QW (MetaTrans :: Base); Use http :: solicitar; Use URI :: Escape; sub new {my $ classe = turno; minhas opções% = @_; $ opções {host_server} = "www.some-online-translator.com" a menos que (definido $ opções {host_server}); Meu $ self = New Metatrans :: Base (% Opções); $ auto = abençoe $ auto, $ classe; # Tradução Suportada Indicação: # Inglês Alemão # Inglês Francês # Inglês Espanhol $ auto-> set_languages ('eng', 'ger', 'fre', 'spa'); $ self-> set_dir_1_to_all ('ENG'); $ self-> set_dir_all_to_1 ('ENG'); retornar $ auto; } Sub Create_Request {My $ self = shift; minha expressão de $ = turno; meu $ src_lang_code = shift; meu $ DEST_LANG_CODE = Shift; # Nosso-ID de idioma-códigos-para-servidor-códigos-códigos de conversão My% table = (eng => 'eng', ger => 'deu', fre => 'fra', spa => 'esp'); Retornar Novo Http :: Solicitar ('Get', 'http://www.sonal-online-translator.com/translate.cgi?' 'expr ='. Uri_escape ($ expressão) '.' 'src =' . $ table {$ src_lang_code}. ''. 'DST ='. $ Tabela {$ DEST_LANG_CODE}); } Sub Process_Response {My $ self = Shift; Meu conteúdo $ = Shift; # Nós não nos importamos com isso aqui, mas # em alguns casos podemos precisar cuidar do meu $ src_lang_code = shift; meu $ DEST_LANG_CODE = Shift; meu @result; enquanto ($ CONTEÚDO = ~ m | ([^

Metatrans :: Base. Software Relacionado