Pod :: analisador.

pod :: parser é uma classe de perl base para criar filtros e tradutores do vagem.
Baixe Agora

Pod :: analisador. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Brad Appleton
  • Site do editor:
  • http://search.cpan.org/~marekr/Pod-Parser-1.35/lib/Pod/Parser.pm

Pod :: analisador. Tag


Pod :: analisador. Descrição

Pod :: parser é uma classe de perl base para criar filtros e tradutores do vagem. Pod :: Parser é uma classe de perl base para criar filtros e tradutores do pods.synopsis use pod :: analisador; pacote myparser; @Isa = qw (pod :: parser); Sub comando {MY ($ parser, $ Command, $ parágrafo, $ linha_num) = @_; ## interpretar o comando e seu texto; Ações de amostra podem ser: se ($ comando eq 'head1') {...} elsif ($ comando eq 'head2') {...} ## ... outros comandos e suas ações Meu $ Out_FH = $ parser- > Saída_Handle (); Minha $ expansão = $ parser-> interpolate ($ parágrafo, $ linha_num); Imprimir $ Out_FH $ expansão; } SubBatim {My ($ parser, $ parágrafo, $ linha_num) = @_; ## Formatar parágrafo verbatim; Ações de amostra podem ser: meu $ Out_FH = $ parser-> output_handle (); Imprimir $ Out_FH $ Parágrafo; } Sub TextBlock {MY ($ parser, $ parágrafo, $ linha_num) = @_; ## Traduzir / formatar este bloco de texto; Ações de amostra podem ser: meu $ Out_FH = $ parser-> output_handle (); Minha $ expansão = $ parser-> interpolate ($ parágrafo, $ linha_num); Imprimir $ Out_FH $ expansão; } subterior_sequence {my ($ parser, $ seq_command, $ SEQ_Argument) = @_; ## expandir uma sequência interior; As ações de amostra podem ser: return "* $ SEQ_ARGUMENT *" if ($ SEQ_COMMAND EQ 'B'); return "` $ SEQ_Argument '"se ($ SEQ_COMMAND EQ' C '); return "_ $ {SEQ_ARGUMENT} _ '" se ($ SEQ_COMMAND EQ' I '); ## ... outros comandos de seqüência e seu texto resultante} pacote principal; ## Crie um objeto analisador e tenha ele analise o arquivo cujo nome foi ## fornecido na linha de comando (use stdin se nenhum arquivo fosse fornecido). $ parser = novo myparser (); $ parser-> parse_from_filehandle (* stdin) se (@argv == 0); para (@argv) {$ parser-> parse_from_file ($ _); } Requisitos: · Perl.


Pod :: analisador. Software Relacionado

Sobre nós