Pod :: analizador Pod :: Parser es una clase de base Perl para crear filtros y traductores de POD.
Descargar ahora

Pod :: analizador Clasificación y resumen

Pod :: analizador Etiquetas

Módulo perl filtros VAINA Filtros de vaina Traductores POD traductores

Pod :: analizador Descripción

POD :: Parser es una clase de base Perl para crear filtros y traductores de POD. POD :: Parser es una clase de base Perl para crear filtros y traductores de POD.Synopsis use pod :: analizador; paquete myparser; @Isa = qw (pod :: analizador); Sub Command {My ($ parser, $ comando, $ párrafo, $ line_num) = @_; ## Interprete el comando y su texto; Las acciones de la muestra pueden ser: si ($ Command EQ 'Head1') {...} Elsif ($ comando EQ 'Head2') {...} ## ... Otros comandos y sus acciones My $ OUT_FH = $ PSERSER- > OUTPUT_HANDLE (); My $ Expansion = $ parser-> interpolando ($ párrafo, $ line_num); Imprimir $ OUT_FH $ Expansión; } Sub Verbatim {My ($ parser, $ párrafo, $ line_num) = @_; ## Formato del párrafo verbatim; Las acciones de la muestra podrían ser: My $ OUT_FH = $ PARSER-> OUTPUT_HANDLE (); Imprimir $ OUT_FH $ PÁRRAFO; } Sub TextBlock {My ($ parser, $ párrafo, $ line_num) = @__; ## Traducir / formatear este bloque de texto; Las acciones de la muestra podrían ser: My $ OUT_FH = $ PARSER-> OUTPUT_HANDLE (); My $ Expansion = $ parser-> interpolando ($ párrafo, $ line_num); Imprimir $ OUT_FH $ Expansión; } Sub Interior_Esquence {My ($ parser, $ seq_command, $ seq_argument) = @_; ## ampliar una secuencia interior; Las acciones de la muestra pueden ser: devolver "* $ SEQ_ARGUMENTO *" IF ($ SEQ_COMMAND EQ 'B'); devuelva "$ seq_argument '" si ($ SEQ_COMMAND EQ' C '); devolver "_ $ {seq_argument} _ '" if ($ seq_command eq' i '); ## ... Otros comandos de secuencia y su texto resultante} Paquete principal; ## Cree un objeto de analizador y tenga un archivo de análisis de TI cuyo nombre fue de referencia en la línea de comandos (use STDIN si no se dieron archivos). $ parser = nuevo Myparser (); $ parser-> parse_from_filehandle (* stdin) if (@argv == 0); para (@argv) {$ parser-> parse_from_file ($ _); } Requisitos: · Perl

Pod :: analizador Software relacionado