Creating HTML page

ganilmohan has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Creating HTML page by Corion (Patriarch) on Aug 05, 2008 at 09:03 UTC
You don't check whether your `sysopen()` call failed. Do that. Also, why are you using sysopen instead of using plain open? `my $outname = 'usr/anil/scripts/myhtml.html'; open HTML, '>', $outname or die "Couldn't create '$outname': $!";` [download]	[reply] [d/l] [select]
Re^2: Creating HTML page by ganilmohan (Acolyte) on Aug 05, 2008 at 09:15 UTC
Corion, I have tried with the lines you have suggested but still the thml file is NOT created... print "content-type: text/html \n\n"; #The header my $outname = 'usr/anil/scripts/myhtml.html'; open HTML, '>', $outname \|\| die "Couldn't create '$outname': $!"; printf HTML "<html>\n"; printf HTML "<head>\n"; printf HTML "<title>My Home Page</title>"; printf HTML "</head>\n"; printf HTML "<body>\n"; printf HTML " Here we have an HTML page with a paragraph. "; printf HTML "</body>\n"; printf HTML "</html>\n"; close ($outname);	[reply]
Re^3: Creating HTML page by davorg (Chancellor) on Aug 05, 2008 at 09:43 UTC
`open HTML, '>', $outname \|\| die "Couldn't create '$outname': $!";` Looks like you're falling over a problem with operator precedence. Be very careful. \|\| does not have the same precendence as "or". -- See the Copyright notice on my home node. "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re^3: Creating HTML page by FunkyMonk (Bishop) on Aug 05, 2008 at 10:12 UTC
Others have mentioned your open should be using or, not \|\|. You seem to have lost the leading / from $outname. You should be using: `my $outname = '/usr/anil/scripts/myhtml.html'; open HTML, '>', $outname or die "Couldn't create '$outname': $!";` [download] If that still doesn't work, tell us what the error message is. Why aren't you using strict and warnings? Always start your Perl programs with `#!/usr/bin/perl use strict; use warnings;` [download] Unless I state otherwise, all my code runs with strict and warnings	[reply] [d/l] [select]
Re^3: Creating HTML page by Corion (Patriarch) on Aug 05, 2008 at 09:18 UTC
`open HTML, '>', $outname \|\| die "Couldn't create '$outname': $!";` [download] This is not what I suggested. I suggested what I suggested for a reason. Also, consider using `<code>...</code>` around your code, so that it renders and downloads nicely.	[reply] [d/l] [select]
Re: Creating HTML page by cdarke (Prior) on Aug 05, 2008 at 10:26 UTC
Also, `close ($outname);` is incorrect in Perl, you should use the handle, as in your original post. I also suggest you use print rather than printf, it is supposed to be more efficient. However, I cannot see any reason why the file would fail to be created and no error reported. Double check your error checking. As a last resort run strace on the script: `strace -o strace.out perl myscript.pl` [download] It will probably produce a lot of output in strace.out but sometimes gives information which is not obvious in a script.	[reply] [d/l] [select]
Re^2: Creating HTML page by ganilmohan (Acolyte) on Aug 05, 2008 at 10:53 UTC
Oh nooo....lotss of errors when I added use strict; use warnings; to this script. Almost all the errors are Global symbol "$count" requires explicit package name at frame7.pl line 7.	[reply]
Re^3: Creating HTML page by FunkyMonk (Bishop) on Aug 05, 2008 at 10:57 UTC
So, declare each of them when you first use them with my... `my $outname = '...';` [download] Unless I state otherwise, all my code runs with strict and warnings	[reply] [d/l] [select]
Re: Creating HTML page by dHarry (Abbot) on Aug 05, 2008 at 11:17 UTC
If you want to output html, why not use one of the Perl modules available on CPAN (for example HTML::Tiny to name just one). Doing this with printf statements seems like traveling backwards in time.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.