<span class=\"$class\">~, '</span>' ] );
}
print qq~<link rel="stylesheet" href="highlightperl.css" type="text/css" />~;
print '<pre>';
while (<DATA>) {
print $formatter->format_string;
}
print "</pre>";
评论加载中…
![]() |