| POD: PARDER POD: PARDER IS EEN BASE PERL-les voor het maken van podfilters en vertalers. |
Download nu |
POD: PARDER Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Brad Appleton
- Uitgever website:
- http://search.cpan.org/~marekr/Pod-Parser-1.35/lib/Pod/Parser.pm
POD: PARDER Tags
POD: PARDER Beschrijving
POD: PARDER IS EEN BASE PERL-les voor het maken van podfilters en vertalers. POD: PARDER IS EEN BASE PERL-klasse voor het maken van podfilters en vertalers.Synopsis Gebruik POD :: PARDER; pakket myParser; @Isa = QW (POD :: PARDER); Subopdracht {My ($ Parser, $ commando, $ paragraaf, $ line_num) = @_; ## interpreteer de opdracht en de tekst; Voorbeeldacties kunnen zijn: if ($ commando eq 'head1') {...} Elsif ($ commando eq 'head2') {...} ## ... andere opdrachten en hun acties mijn $ out_fh = $ parser- > output_handle (); Mijn $ Expansion = $ Parser-> Interpolate ($ paragraaf, $ line_num); Print $ out_fh $ expansion; } subwoordverbatim {mijn ($ parser, $ paragraaf, $ line_num) = @_; ## Format Verbatim Paragraaf; Voorbeeldacties kunnen zijn: mijn $ OUT_FH = $ PARDER-> OUTPUT_HANDLE (); Print $ out_fh $ paragraaf; } Sub Textblock {My ($ Parser, $ paragraaf, $ Line_Num) = @_; ## Vertalen / formatteren dit blok van tekst; Voorbeeldacties kunnen zijn: mijn $ OUT_FH = $ PARDER-> OUTPUT_HANDLE (); Mijn $ Expansion = $ Parser-> Interpolate ($ paragraaf, $ line_num); Print $ out_fh $ expansie; } sub interior_ -zij {mijn ($ parser, $ seq_command, $ seq_argument) = @_; ## Breid een interieursequentie uit; Monsteracties kunnen zijn: retourneren "* $ SEQ_ARGUMEN *" ALS ($ SEQ_COMMAND EQ 'B'); Return "` $ seq_argument '"if ($ SEQ_COMMAND EQ' C '); Keer terug "_ $ {seq_argument} _ '" if ($ seq_command eq' i '); ## ... andere sequentieopdrachten en hun resulterende tekst} Pakketnaam; ## Maak een PARSER-object en laat het parseren bestand wiens naam ## is gegeven op de opdrachtregel (gebruik Stdin als er geen bestanden werden gegeven). $ PARDER = NIEUWE MYPARSER (); $ Parser-> parse_from_filehandle (* stdin) if (@argv == 0); voor (@ARGV) {$ PARDERER-> PARSE_FROM_FILE ($ _); } Vereisten: · Perl
POD: PARDER Gerelateerde software