Perlpoint :: Plantilla :: TT2 Perlpoint :: Plantilla :: TT2 es una versión beta de un procesador de plantilla PerlPoint para la plantilla Toolkit 2 diseños.
Descargar ahora

Perlpoint :: Plantilla :: TT2 Clasificación y resumen

Perlpoint :: Plantilla :: TT2 Etiquetas

Módulo perl plantilla Suspender Procesador de plantilla Perlpoint Diseños de kit de herramientas de plantilla

Perlpoint :: Plantilla :: TT2 Descripción

Perlpoint :: Plantilla :: TT2 es una versión beta de un procesador de plantilla Perlpoint para la plantilla de herramientas 2 diseños. Perlpoint :: Plantilla :: TT2 es una beta de un procesador de plantilla PerlPoint para plantilla Toolkit 2 Layouts.MethodsNew Parámetros: Classthe Class Name.Returns: The New Object.Example: # start Page $ resultado. = "Nnnn"; # comenzar el encabezado $ resultado. = "nnnn"; # Contenido del encabezado: Esto se agregó a la lista tradicional de archivos de plantilla $ resultado. = $ yo-me -> _ processtemplate (Únete ('/', $ tdir, $ Opciones -> {$ toc? 'Header_toc_template'})} , $ TOC? 1: $ params {Page}); # Cabecera completa $ resultado. = "nnnn"; # comenzar el cuerpo $ resultado. = "nnnn"; # ahora el contenido del cuerpo: Comience con la parte superior de la parte $ resultado. = $ yo ... 1: $ params {Page}); # Añadir navegación, si es necesario $ resultado. = $ me {Page}) Si existe $ Opciones -> {$ TOC? 'Nav_toc_template': 'nav_template'}; # Incluir datos (para TOCS, asegúrese de no agregar un TOC estándar si el applet de árbol se usa #: esto debería ser más genérico en caso de que los usuarios usen otros métodos ...) $ resultado. = $ TOC? $ resultado = ~ / _toc (): $ params {datos}; # Agregue la navegación inferior, si es necesario $ resultado. = $ Me -> _ ProcessTemplate (Únase a ('/', $ TDIR, $ Opciones -> {$ TOC? 'Nav_TOC_TEMPLATY': 'NAV_TEMPLATE'}), $ TOC? 1: $ Params {Page}) Si existe $ Opciones -> {$ TOC? 'Nav_toc_template': 'nav_template'}; # Finalmente, agregue la parte inferior $ resultado. = $ Me -> _ processtemplate (Únase a ('/', $ TDIR, $ Opciones -> {$ TOC? 'BOUK_TOC_TEMPLATE': 'FOURT_TEMPLATE'}), $ TOC? 1: $ params {Page}); # Cerrar el cuerpo $ resultado. = "NNNN"; # y complete la página $ resultado. = "nnnn"; # construir el nombre del archivo My $ filename = Únase a ('', "$ Opciones -> {TargetDir} / $ Opciones -> {prefix} -", (Filepepase ($ plantilla, QR (. +)))) 0], "- $ params {Page} $ Opciones -> {sufijo}"); advertir "= suplemento de la página =====> $ filenamen"; # Escribir archivo abierto (SuppFile, "> $ FileName") o Die QQ ( no pudo abrir el archivo de salida "$ FileName": $! N); Imprimir SuppFile $ cadena; Cerrar (SuppFile); }} Requisitos: · Requisitos de Perl: · Perl

Perlpoint :: Plantilla :: TT2 Software relacionado