The default filehandle is
STDOUT so to print to other filehandle you have to explicitly specify it. But you can avoid to express the filehandle if you
select it before printing. Always check your
open statement.
open OUTFILE, ">result.html" or die "Can't write to result.html: $!\n"
+;
select OUTFILE;
print "<html><head>";
print "other html stuff";
You can save the
print statement with the
here-document style.
print <<HTML;
<html><head>
<title>HTML with here-docs</title>
...
... more stuff
HTML
# do some processing
for my $item (@items_from_somewhere) {
print "<li>$item\n";
}
print <<HTML
... continue HTML
...
</body></html>
HTML
But, I think you can get the most from templating system such as
HTML::Template. I do.
Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!
