Prty::Html::Listing - Programm-Listing in HTML
Prty::Html::Base
use Prty::Html::Listing; my $h = Prty::Html::Tag->new; my $obj = Prty::Html::Listing->new( language=>'Perl', lineNumbers=>1, colNumbers=>79, source=>$file, ); my $html = $obj->html($h);
Setze Methodenanker an den Anfang der eingebetteten Dokumentation zur Methode (im Fall von Perl der POD-Dokumentation) oder an den Anfang der Methode selbst. Im Falle von undef wird kein Anker gesetzt.
undef
Setze eine Zeile mit Kolumnennummern. Die Mindest-Zeilenlänge ist $n (z.B. 79). Bei colNumbers=>0 werden keine Kolumnennummern gesetzt.
Schütze &, >, < in den Daten durch HTML-Entities. Wenn die Daten bereits geschützt sind, kann dies mit escape=>0 abgeschaltet werden. In dem Fall sind die ermittelten Zeilenlängen für Option colNumbers u.U. zu groß.
Sprache. Aktuell nur 'Perl'.
Setze die Zeilennummer an den Anfang jeder Zeile, beginnend mit $n. Bei lineNumbers=>0 wird keine Zeilennummer gesetzt.
Minimale Breite der Zeilennummern-Spalte in Zeichen. Ungenutzte Stellen werden mit Leerzeichen aufgefüllt.
Inhalt. Dieser kann aus einer Datei oder einem String kommen.
Programm:
1: require R1::HtmlTag; 2: require R1::Html::Listing; 3: 4: my $h = R1::HtmlTag->new; 5: 6: my $text = << '__PERL__'; 7: #!/usr/bin/perl 8: 9: =encoding utf8 10: 11: Nur ein Demo-Programm. 12: 13: =cut 14: 15: print "Hello world!\n"; 16: 17: # eof 18: __PERL__ 19: 20: my $html = R1::Html::Listing->html($h, 21: cssPrefix=>'sdoc-code', 22: language=>'Perl', 23: source=>\$text, 24: );
Ergebnis:
1:
Im Browser:
$obj = $class->new(@keyVal);
$html = $obj->html($h); $html = $class->html($h,@keyVal);
PREFIX-table|Das gesamte Konstrukt (Tabelle) PREFIX-tr-odd|Ungerade Zeile PREFIX-tr-even|Gerade Zeile PREFIX-td-ln|Zelle für Zeilennummer PREFIX-td-cn|Zelle für Kolumnennummer PREFIX-td-edge|Eckzelle Kolumnennummer/Zeilennummer PREFIX-td-line|Zelle für Zeileninhalt PREFIX-doc|Kennzeichnung Doku (bei Perl POD) PREFIX-comment|Kennzeichnung Kommentar
1.124
Frank Seitz, http://fseitz.de/
Copyright (C) 2018 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Prty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prty
CPAN shell
perl -MCPAN -e shell install Prty
For more information on module installation, please visit the detailed CPAN module installation guide.