Help for this page

Select Code to Download


  1. or download this
    <p>This
will
look
like
this      does       below
  2. or download this
    <PRE>
This
...
the 
newlines
</PRE>
  3. or download this
    sub escapeHTML {
    my ( $escape, $text ) = @_;
...
    $escape =~ s/([^\000-\177])/'&#' . (sprintf "%3d", ord $1) . ';'/e
+g;
  return $escape;
}
  4. or download this
    print "Content-type: text/html\n\n";

...
print '</pre>';

sub escapeHTML { ..... }