| Perlpoint :: Modelo :: TT2 Perlpoint :: Template :: TT2 é um beta de um processador de modelo perlpoint para layouts de modelo de ferramentas de modelo. |
Baixe Agora |
Perlpoint :: Modelo :: TT2 Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Jochen Stenzel
- Site do editor:
- http://search.cpan.org/~jstenzel/Getopt-ArgvFile-1.11/ArgvFile.pm
Perlpoint :: Modelo :: TT2 Tag
Perlpoint :: Modelo :: TT2 Descrição
Perlpoint :: Template :: TT2 é um beta de um processador de modelo Perlpoint para layouts de modelo de ferramentas de modelo. PerlPoint :: TT2 é um beta de um processador de modelo Perlpoint for model Toolkit 2 Layouts.Methodsnew () Parâmetros: ClassThe Classe Name.Returns: The New Object.Example: # Iniciar página $ Resultado. = "NNNN"; # começar o cabeçalho $ result. = "nnnn"; # Conteúdo do cabeçalho: isso foi adicionado à lista tradicional de arquivos de modelo $ resultado. = $ Me -> _ ProcessTemplate (junção ('/', $ TDIR, $ Opções -> {$ toc? 'header_toc_template': 'header_template'}) , $ toc? 1: $ params {page}); # completo cabeçalho $ result. = "nnnn"; # Comece o resultado do corpo. = "NNNN"; # Agora o conteúdo do corpo: Comece com a parte superior de $ Result. = $ Me -> _ ProcessTemplate (junção ('/', $ TDIR, $ Opções -> {$ toc? 'top_toc_template': 'top_template'}), $ toc? 1: $ params {page}); # Adicionar navegação, se necessário $ Result. = $ Me -> _ ProcessTemplate (junção ('/', $ TDIR, $ Opções -> {$ toc? 'nav_toc_template': 'NAV_TEMPLATE'}), $ toc 1: $ params {Página}) se existir $ Opções -> {$ TOC? 'nav_toc_template': 'nav_template'}; # Incluir dados (para TOCs, certifique-se de não adicionar um padrão padrão se o applet da árvore for usado # - isso deve ser mais genérico caso os usuários usem outros métodos ...) $ result. = $ toc? $ Result = ~ / _TOC (): $ params {dados}; # Adicionar navegação inferior, se necessário, $ Result. = $ Me -> _ ProcessTemplate (junção ('/', $ TDIR, $ Opções -> {$ toc? 'nav_toc_template': 'nav_template'}), $ 1: $ params {Página}) se existir $ Opções -> {$ TOC? 'nav_toc_template': 'nav_template'}; # Finalmente, adicione a parte inferior $ Result. = $ Me -> _ ProcessTemplate (junção ('/', $ TDIR, $ Opções -> {$ toc? 'Bottom_toc_template': 'Bottom_Template'}), $ toc 1: $ params {page}); # Feche o corpo $ result. = "NNNN"; # e complete a página $ result. = "NNNN"; # Construir Nome do arquivo Meu $ Filename = junte ('', "Opções de $ -> {TargetDir} / $ Opções -> {prefix} -", ($.] +))) +))) 0] "- $ params {page} $ op op op op opções -> {sufixo}"); avisar "= suplemento de página =====> $ filenamen"; # Escrever arquivo aberto (supfile, "> $ filename") ou morrer QQ ( não foi possível abrir o arquivo de saída "$ filename": $ !. n); Imprimir suppfile $ string; fechar (supfile); }} Requisitos: · Requisitos de Perl: · Perl.
Perlpoint :: Modelo :: TT2 Software Relacionado