| POD :: htmleasy POD :: HTMLEASY PERL-module kan gepersonaliseerde HTML van PODS genereren. |
Download nu |
POD :: htmleasy Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Graciliano M. P.
- Uitgever website:
- http://search.cpan.org/~gmpassos/
POD :: htmleasy Tags
POD :: htmleasy Beschrijving
POD :: HTMLESY PERL-module kan gepersonaliseerde HTML van PODS genereren. POD :: HTMLESY PERL-module kan gepersonaliseerde HTML van PODS genereren. Standaard is de gegenereerde HTML vergelijkbaar met de CPAN-site-stijl voor module Documentation.SyNopsissIMPLE GEBRUIK: MY $ PODHTML = POD :: HTMLEASY-> NIEUW (); mijn $ html = $ podhtml-> pod2html ('test.pod'); Print "$ htmln"; compleet gebruik: gebruik pod :: htmleasy; Maak het object en stel lokale evenementen subs in: merk op dat dit alle evenementen zijn, en voorbeelden van hoe u ze kunt implementeren. Al deze gebeurtenissen zijn natuurlijk al geïmplementeerd, dus als de verstrekte acties voldoende zijn, zijn er geen lokale subs nodig. De daadwerkelijke uitvoering van On_head1 is enigszins ingewikkelder, om te voorzien in de detectie van de titel van de module en het inbrengen van de Uparw. Mijn $ PODHTML = POD :: HTMLEASY-> NIEUW (ON_B => SUB {MY ($ DIT, $ TXT) = @_; RETURN " $ TXT ";}, ON_C => Sub {My ($ DIT, $ TXT) = @_; RETURN " $ TXT ";}, ON_E => SUB {MY ($ DIT, $ TXT) = @_; $ txt = ~ s {^} {} smx; $ txt = ~ s {; $} {} smx; $ txt = qq {# $ txt} if $ txt = ~ / ^ D + $ /; retour qq { $ txt ;};}, on_f => sub {mijn ($ dit, $ txt) = @_; retour " $ txt ";}, on_i => sub {my ($ This, $ TXT) = @_; Return " $ txt ";}, on_l => sub {mijn ($ dit, $ l, $ tekst, $ pagina, $ sectie, $ Type ) = @_; if ($ typ eq 'pod') {$ section = gedefinieerde $ sectie? "# $ sectie": ''; $ pagina = '' Tenzij gedefinieerde $ pagina; Return " $ Tekst ";} Elsif ($ type EQ 'MAN') {return" $ Text ";} Elsif ($ Type EQ 'URL') {return" $ tekst ";}}, on_ts => sub {My ( $ dit, $ txt) = @_; $ txt = ~ s / n / gs; retour $ txt;}, aan _X => sub {return ''; }, on_z => sub {return ''; }, on_back => sub {mijn $ deze = verschuiving; terug " $ nl"; }, on_begin => sub {mijn $ dit = verschuiving; mijn ($ txt, $ a_name) = @_; $ deze-> {in_begin} = 1; opbrengst ''; }, on_ror => sub {mijn ($ dit, $ txt) = @_; Retourneer QQ {}; }, on_end => sub {mijn $ dit = verschuiving; mijn ($ txt, $ a_name) = @_; Verwijder $ this-> {IN_BEGIN}; opbrengst ''; }, on_for => sub {return '';}, on_head1 => sub {my ($ this, $ txt, $ a_name) = @_; Retourneer QQ { $ TXT $ NL $ NL}; }, on_head2 => sub {mijn ($ dit, $ txt, $ a_name) = @_; Retourneer QQ { $ TXT $ NL $ NL}; }, on_head3 => sub {mijn ($ dit, $ txt, $ a_name) = @_; Retourneer QQ { $ TXT $ NL $ NL}; }, on_head4 => sub {mijn ($ dit, $ txt, $ a_name) = @_; Retourneer QQ { $ TXT $ NL $ NL}; }, on_include => sub {mijn ($ dit, $ bestand) = @_; Keer terug qq {./$ bestand}; }, on_item => sub {mijn ($ dit, $ txt) = @_; Keer terug qq {
$ txt $ nl}; }, on_index_node_start => sub {mijn ($ dit, $ txt, $ a_name, $ has_children) = @_; Mijn $ RET = QQ { $ TXT $ NL}; $ RET. = q {$ nl $ nl} als $ has_children; retourneer $ RET; }, on_index_node_end => sub {mijn $ dit = verschuiving; mijn ($ txt, $ a_name, $ has_children) = @_; mijn $ RET = $ HAS_CHILDREN? q {}: leeg; retourneer $ RET; }, on_over => sub {mijn ($ dit, $ niveau) = @_; Retourneer QQ { $ nl? ; }, ON_TEXTBLOCK => SUB {MY ($ DIT, $ TXT) = @_; Return IF bestaat $ this-> {IN_BEGIN}; Keer terug qq { $ txt
$ nl}; }, on_uri => sub {mijn ($ dit, $ uri) = @_; Retourneer QQ { $ URI {; }, on_verbatim => sub {mijn ($ dit, $ txt) = @_; $ txt = ~ s {(A $ NL) * (A $ NL) z} {} GSMX; terugkeren '' tenzij lengte $ txt; terugkeer qq {
$ txt $ nl}; },); ## Converteren naar HTML: My $ HTML = $ PODHTML-> POD2HTML ('Test.pod', 'Test.html', titel => 'Pod :: Test', Body => {BGCOLOR => '#ccccccc'} , CSS => 'Test.css',); Vereisten: · Perl-vereisten: · Perl
POD :: htmleasy Gerelateerde software