Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Second and Third observations

by cLive ;-) (Prior)
on Aug 22, 2001 at 09:06 UTC ( #106878=note: print w/replies, xml ) Need Help??


in reply to Re: compilation errors???
in thread compilation errors???

re 2nd obv
@array in scalar context is the number of elements in the array. $#array is the index of the last element. ie
$#array = @array -1;
My only observation here is that:
for ($i=0; $i <@filenames; $i++)
is a little 'cleaner'.
re 3rd obv
Doesn't have to, as it's the last statement in a coding block. But, it *is* a good habit to get into.
re uncallous comment
"try debugging your code" - perhaps you could spend an extra minute or two checking your answer before ranting :)

cLive ;-)

PS - blame any lette ommissions on my dodgy keyboad which will get eplaced soon...

Update:

PPS - try removing first print statement (why is it there?). I suggest you move the second to just above your output line (print <<EndHTML;). Other notes...

# For tidyness, change: \*\*\*\* # in your regexp, to: \*{4} # for sanity control, change open(PAGES, "<pages.txt"); # to open(PAGES, "<pages.txt") || die $!; # (and do the same for you other filehandle opens) # and I'm pretty sure that print FILE QQ($temlate[0] ... # should be print FILE qq($temlate[0] ...
And, to finish, I strongly suggest you use CGI.pm

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://106878]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2021-02-25 02:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?