code2html.pl


#Perl to make html page showing source code

$filename = shift;

$filename =~ m/(.+)\..*$/;
$main_name = $1;

print "<html><head>\n";
print "<title>$filename</title>\n";
print "</head>\n";
print "<body><pre><code>\n";

open (INFILE, "< $filename") or die "Can not open $filename $!";

while ($inline = <INFILE>) {
  $inline =~ s/&/&amp;/g;
  $inline =~ s/</&lt;/g;
  $inline =~ s/>/&gt;/g;
  print $inline;
}
close(INFILE);
print "</code></pre></body></html>\n";