Back to index
Printer-friendly page
Table of contents
#!/usr/bin/perl
$fname="$ENV{'DOCUMENT_ROOT'}/how-to/print/$ARGV[0]";
open(FIN, $fname)||die;
read(FIN, $text, 1000000);
close(FIN);
$text =~ s/\t//g;
$text =~ s//\t/g;
$text =~ s//\t/g;
if ($text =~ /\t([^\t]*)\t/) {
print "Content-Type: text/html\n\n$1";
}
Corrections? Additions? Please let us know.
|
