<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
John W. Krahn wrote:
<blockquote cite="mid:489E8DAE.9030701@shaw.ca" type="cite">Christopher
Howard wrote:
<br>
<blockquote type="cite">Hello.
<br>
</blockquote>
<br>
Hello,
<br>
<br>
<blockquote type="cite">I was wondering if a few of you would be
willing to do me a favor. I'm creating this personal website as part
of an independent project toward my Associates degree:
<br>
<br>
<a class="moz-txt-link-abbreviated" href="http://www.indicium.us">www.indicium.us</a> <a class="moz-txt-link-rfc2396E" href="http://www.indicium.us"><http://www.indicium.us></a>
<br>
<br>
The basic idea of the project is for me to learn Perl by coding an
entire personal website out of Perl scripts (my own work, mostly). The
site is meant to have a variety of content to interest the web visitor,
including interactive programs and downloads. The site is not very
impressive yet (we all have to start somewhere!) but I'm slowly working
to make it more attractive, interesting, and useful.
<br>
<br>
There is a site blog (accessible from the front page) that details my
experiences in coding the site. If you want to help out, all you have
to do is subscribe to the blog's RSS feed, watch the posts, and drop in
a comment when ever you feel like it.
<br>
<br>
Thanks in advance.
<br>
</blockquote>
<br>
On your "Links" page you have a link to "Rex Swain's HTMLified Perl 5
Reference". This site has so many errors in it that I couldn't get
past the "Operators" section. Why don't you just link to the actual
Perl documentation at <a class="moz-txt-link-freetext" href="http://perldoc.perl.org/">http://perldoc.perl.org/</a>?
<br>
<br>
As to your "hrefined" code, most of it looks OK except for
"modules/database.pm":
<br>
<br>
67 my $currentlink = @{$links}[$currentvalue];
<br>
<br>
168 my $file = @_[1];
<br>
<br>
214 my $currentcategory = @{$categories}[$currentvalue];
<br>
<br>
You are using a slice to access a scalar value. Those lines should be:
<br>
<br>
67 my $currentlink = $links->[$currentvalue];
<br>
<br>
168 my $file = $_[1];
<br>
<br>
214 my $currentcategory = $categories->[$currentvalue];
<br>
<br>
If you had enabled warnings then perl would have informed you of this.
<br>
<br>
Also in "modules/interface.pm" you have "use strict" twelve times.
"use" happens at compile time and after the first strict pragma is
compiled in the next eleven ones are ignored.
<br>
<br>
While there are a few other quirks or inconsistencies that I would
change if it were my code, that's enough for now. :-)
<br>
<br>
<br>
<br>
John
<br>
</blockquote>
<p>Thank you. Feel free to point out any other quirks or
inconsistencies that you notice, even if it makes me look like a real
newbie. Pretty much everything I know about Perl is from a few
tutorials here and there, so I could use all the peer review I can get.</p>
<p>If you ever want to suggest better programming practices, good
tutorials, and that sort of thing, feel free to drop me a note anytime,
especially as a comment on my <a
href="http://www.indicium.us/cgi-bin/blog/index.cgi">blog</a> (it's
sort of a journal for the project).</p>
</body>
</html>