Handling One-liners

I use a 2-step solution to handle one-liners:

$content =~ 
   s/(<pre class="perl-e-code">)(.+?)(<\/pre>)/
     "$1\n" . code2html2($2) . "\n$3"       /gse;
sub code2html2 {
   my $code = shift;
   $code =~ s/'(.+?)'/"'".code2html($1)."'"/gse;
   return $code;
}

Now this looks much better:


perl -ane'$sum=$F[0]+$F[1];print"$sum\n"'

Offer Kaye.
Slides automatically generated by tmpl2slides.pl. Last updated on Sun Dec 5 01:43:31 2004