Texto :: Macros Un motor macro de texto orientado a objetos
Descargar ahora

Texto :: Macros Clasificación y resumen

Texto :: Macros Etiquetas

texto orientado a objetos macro Texto orientado a objetos motor de macros

Texto :: Macros Descripción

Un motor macro de texto orientado a objetos. Texto :: Macros.pm es un motor macro de texto orientado a objetos Perl. Uso técnico. # Hacer un expansor de macro: My $ MACRO_EXPANDER = Texto :: Macros-> Nuevo ("\ Q ]"); # Expandir las macros en la plantilla: My $ Email_Text = $ macro_expander-> expand_macros ($ data_object, $ plantilla); Para respaldar esto, tendría que existir un "objeto de datos", que tendría que definir métodos que se utilizarán como macro. nombres, por ejemplo Me gusta esto: paquete de grabación de paquete; Sub receptigenteAil {$ _ -> {'receptoremail'}} Subderemail {$ _ -> {'senderemail'}} Subcountnum {$ _ -> {'Cuenta'}} Sub destinatario {$ _ -> {'destinatario'}} Sub Plainkamount {$ _ _ -> {'PAGO PAGOCION'}} Sub Dayspastdue {$ _ -> {'Dayspastdue'}} Alternativamente, los datos La clase de objetos podría tener una carga automática definida, por ejemplo, como esta: Paquete registrador: Sub autoload {My $ Self = Shift; My $ NOMBRE = $ AutoLoad; $ nombre = ~ s /,* :: //; $ auto -> {$ nombre}} Si es así, entonces se debe indicar el expansor de macros para no afirmar que los nombres de macros encontrados son válidos para el objeto, ya que puede fallar, aunque las llamadas serán manejadas por AutoLoad. Para hacer esto, aprobar un verdadero valor para el tercer valor al constructor: My $ Macro_Expander = Texto :: Macros-> Nuevo ("\ Q ]", 1); Macros puede tomar argumentos. Cualquier cadena que ocurre dentro del texto macro después del nombre de la macro se pasará como argumentos a la llamada Método de Macro. De forma predeterminada, el nombre de macro y cualquier argumento están todos separados por las nuevas líneas. Puedes anular este comportamiento; Consulte la documentación de parse_args, a continuación.Synopsisuse Text :: Macros; # poético: mi $ macro_expander = nuevo texto :: macros qw ({{{{}}); $ text = expand_macros $ macro_expander $ data_object, $ texto; # ruidoso: $ macro_expander = texto :: Macros-> Nuevo ("\ Q ]", 1); Imprimir $ macro_expander-> expand_macros ($ data_object, $ texto); Requisitos: · Perl

Texto :: Macros Software relacionado