MetaTrans :: Base

MetaTrans :: Base es una clase de base abstracta para crear complementos de meta-traductor.
Descargar ahora

MetaTrans :: Base Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Jan Pomikalek
  • Sitio web del editor:
  • http://search.cpan.org/~janpom/MetaTrans-1.04/lib/MetaTrans/Base.pm

MetaTrans :: Base Etiquetas


MetaTrans :: Base Descripción

MetaTrans :: Base es una clase de base abstracta para crear complementos de meta-traductor. MetaTrans :: Base es una clase de base abstracta para crear plug-ins.Synopsis de meta-traductor # Este no es un ejemplo de trabajo. Sirve solo para ilustración. # Para un trabajo, vea MetaTrans :: Código fuente de Ultralinguanet. Paquete MetaTrans :: MyPlugin; Usa MetaTrans :: Base; Use vars qw (@isa); @Isa = QW (MetaTrans :: Base); Utilice http :: solicitudes; Utilice URI :: Escape; Sub nuevo {My $ Class = Shift; MI% Opciones = @_; $ opciones {host_server} = "www.some-online-translator.com" a menos que (definido $ opciones {host_server}); My $ Self = New Metatrans :: Base (% Opciones); $ self = bendice $ self, $ clase; # Soporte de traducción: # inglés alemán # inglés francés # inglés español $-> set_languages ​​('eng', 'ger', 'fre', 'spa'); $ auto-> set_dir_1_to_all ('eng'); $ auto-> set_dir_all_to_1 ('ing'); devolver $ yo; } Sub Create_Request {My $ Self = Shift; My $ Expression = Shift; My $ src_lang_code = Shift; My $ DEST_LANG_CODE = CAMBIO; # NUESTROS CÓDIGOS DE IDIOMA DE IDIOMA-CÓDIGO AL SERVIDOR Tabla de conversión de códigos de idioma My% Tabla = (eng => 'ing', ger => 'DEU', FRE => 'FRA', SPA => 'ESP'); Devuelva nueva HTTP :: Solicitud ('Obtenga', 'http://www.some-online-translator.com/translate.cgi?'. 'expr ='. uri_escape ($ expresión). ''. 'src =' . $ Tabla {$ src_lang_code} ''. 'DST ='. $ Tabla {$ DEST_LANG_CODE}); } Sub Process_Response {My $ Self = Shift; mis $ contenidos = cambio; # No nos preocupamos por estos aquí, pero en algunos casos, en algunos casos, podríamos necesitar cuidar a mi $ src_lang_code = Shift; My $ DEST_LANG_CODE = CAMBIAR; mi @result; mientras ($ contenidos = ~ m | ([^


MetaTrans :: Base Software relacionado

Sobre nosotros