| Pod :: Parser. POD ::: parser è una classe perl base per la creazione di filtri e traduttori POD. |
Scarica ora |
Pod :: Parser. Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Brad Appleton
- Sito web dell'editore:
- http://search.cpan.org/~marekr/Pod-Parser-1.35/lib/Pod/Parser.pm
Pod :: Parser. Tag
Pod :: Parser. Descrizione
POD :: Parser è una classe perl base per la creazione di filtri e traduttori POD. Pod :: Parser è una classe perl base per la creazione di filtri e traduttori POD.Synopsis usa Pod :: Parser; pacchetto myparser; @Isa = qw (pod :: parser); Comando secondario {My ($ parser, $ comando, $ paragrafo, $ line_num) = @_; ## interpretare il comando e il suo testo; Le azioni di esempio potrebbero essere: se ($ comando eq 'head1') {...} ELSIF ($ comando EQ 'head2') {...} ## ... altri comandi e le loro azioni my $ out_fh = $ parser- > output_handle (); My $ espansione = $ parser-> interpolate ($ paragrafo, $ line_num); Stampa $ out_fh $ espansione; } sub verbatim {my ($ parser, $ paragrafo, $ line_num) = @_; ## Formato paragrafo Verbatim; Le azioni di esempio potrebbero essere: My $ OUT_FH = $ Parser-> output_handle (); Stampa $ out_fh $ paragrafo; } Sub TextBlock {My ($ parser, $ paragrafo, $ line_num) = @_; ## Traduci / Formato questo blocco di testo; Le azioni di esempio potrebbero essere: My $ OUT_FH = $ Parser-> output_handle (); My $ espansione = $ parser-> interpolate ($ paragrafo, $ line_num); Stampa $ out_fh $ espansione; } sub interior_sequence {my ($ parser, $ seq_command, $ seq_argument) = @_; ## espandere una sequenza interna; Le azioni di esempio potrebbero essere: restituzione "* $ $Q_argument *" se ($ seq_command EQ 'B'); ritorno "` $ seq_argument '"IF ($ SEQ_COMMAND EQ' C '); ritorno "_ $ {seq_argument} _ '" se ($ seq_command eq' i '); ## ... altri comandi di sequenza e il loro testo risultante} pacchetto principale; ## Creare un oggetto parser e averlo parse il file il cui nome è stato fornito sulla riga di comando (usa STDIN se non sono stati dati file). $ parser = nuovo myparser (); $ parser-> parse_from_filehandle (* stdin) se (@argv == 0); per (@ARGV) {$ parser-> parse_from_file ($ _); } Requisiti: · Perl.
Pod :: Parser. Software correlato