Oddly, it works for me (I made two fairly trivial changes to the program you listed: I modified the message printed when the open dies and I put the argument for the open in parentheses.
Then generated code looks like this:
<html> <head> <title>My Home Page</title></head> <body bgcolor = blue> Here we have an HTML page with a paragraph. </body> </html>
Just for completeness, this is the code I actually used:
#!/usr/bin/perl use strict; use warnings; use CGI qw/:standard/; print "content-type: text/html \n\n"; #The header print header; my $outname = "myhtml.html"; open(HTML, '>', $outname) or die "Couldn't create $outname because $! +\n"; print HTML "<html>\n"; print HTML "<head>\n"; print HTML "<title>My Home Page</title>"; print HTML "</head>\n"; print HTML "<body bgcolor = blue>\n"; print HTML " Here we have an HTML page with a paragraph. "; print HTML "</body>\n"; print HTML "</html>\n"; close (HTML);
In reply to Re: Raw HTML Code
by swampyankee
in thread Raw HTML Code
by ganilmohan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |