PPI::HTML - Perl Syntax highlighten als HTML Code
alex
- perl
huhu, ich spiele gerade mit PPI::HTML rum und hab folgenden Code zum laufen gebracht:
__CODE__
#!/usr/bin/perl -w
use strict;
use PPI;
use PPI::HTML;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print qq{
<html><head><style type="text/css">
* {font: normal 10px Verdana}
.comment {color:green}
.keyword {color:red}
.require {color:blue}
</style>
</head><body> };
my $Document = PPI::Document->new('mocone.cgi');
my $Highlight = PPI::HTML->new(
line_numbers => 1,
colours => {"keyword"=>"red", "comment"=>"green", "require"=>"blue"} );
print $Highlight->html( $Document );
print qq{</body></html>
};
__END__
jetzt seh ich auch ne farbige Code Ausgabe, allerdings nur bei "my" und "use" Keywörtern sowie Kommentaren, die Frage ist nun wie ich das Modul dazu bringe mir mehr Sachen zu färben? Wie definiere ich die Schlüsselwörter? Ich hab schon halb CPAN gelesen .-) erfolglos...
hat jemand schonmal sowas hinbekommen?
gruß alex