#!/usr/bin/perl -i use Text::VimColor; use HTML::Entities; my $css = "light.css"; my $filetype = "python"; my $colorize = 1; my $code; while (<>) { if (/^'; print "\n"; print; } elsif (!defined($code) && /^
(.*)/) { $code = decode_entities($1) . "\n"; } elsif (defined($code) && /^<\/pre>/) { my $syn = Text::VimColor->new(string => $code, filetype => $filetype); print ''; print $syn->html; print "\n"; undef $code; } elsif (defined($code)) { $code .= decode_entities($_); } else { print; } }