Help for this page

Select Code to Download


  1. or download this
    sub as_HTML {
    # Bla bla bla
    # Your typical subroutine initial stuff we don't care much about..
+.
...
                    
    # More stuff I didn't bother to look at...
}
  2. or download this
    # HTML::Entities

# First there's a whole lot of POD here, but since I already saw the H
+TML
...
    $char2entity{$char} = "&$entity;";
}
delete $char2entity{"'"};  # only one-way decoding
  3. or download this
    %HTML::Entity::char2entity = (); # Bye bye.

...
print $fh "<html><body>"
          .   join("\n", map { $_->as_HTML } ($tit, $sub, $aut, $art) 
+)
          .   "</body></html>";