如何将Perl代码着色

'Label' => 'lb', 'Line' => 'ln', }; my $formatter = Syntax::Highlight::Perl->new(); $formatter->define_substitution('<' => '<', '>' => '>', '&' => '&'); # HTML escapes. # install the formats set up above while ( my ( $type, $class ) = each %{$color_table} ) { $formatter->set_format($type, [ qq~<span class=\"$class\">~, '</span>' ] ); } print qq~<link rel="stylesheet" href="highlightPerl.css" type="text/css" />~; print '<pre>'; while (<DATA>) { print $formatter->format_string;