< Previous | [Index] | Next >
$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; }
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