xml syntax highlighting in html: Syntax::Highlight::Universal - #71603 (Allgemeines zu Perl)

2006-10-27 16:14

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

hi,

ich soll eine vxml-datei in html mit syntax-highlighting ausgeben und habe mir das modul CPAN:

Syntax::Highlight::Universal installiert
dieses erzeugt mir aus meinem (v)xml-string einen formatierten string mit irgendwelchen <span class="...">mein_xml</span> tags.
ich habe mittlerweile herausbekommen, dass ich hierfür noch ein stylesheet in html einbinden muss.

allerdings existiert in den installationsdateien kein xml.css, sondern nur ein xml.hrc und ein script hrd2css.pl, welches mir aus *.hrd *.css generiert, aber es gibt kein xml.hrd und kein hrc2css.pl... :(

also habe ich zum testen mal ein anderes syntax-highlight-css eingebunden und ein bisschen damit rumgespielt, aber das highlighting funktioniert z.b. für <![CDATA[...]]>-blöcke nicht richtig ('...' wird nicht mit angepasst)

hat jemand erfahrung mit diesem modul oder mit einem vergleichbaren oder hat gar jemand so ein xml.css?

Code: (dl )

#!c:\perl\bin\perl.exe
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;
use Syntax::Highlight::Universal;

my $q = new CGI();
print $q->header(), $q->start_html(-style=>{'src'=>'/styles/xml.css'});
warningsToBrowser(1);

open my $fh, '<', 'file.vxml' || die $!;
my @data = <$fh>;
my $hl = Syntax::Highlight::Universal->new();
my $result = $hl->highlight('xml', \@data);

print qq(<pre>);
print $result;
print qq(</pre>);

print $q->end_html();