Forgot something.

richjb — Thu, 13 Jul 2000 01:55:28 +0000

Add a die command to the end of your open calls, that way you know if it is failing.

Example:

$file = "/this/is/a/file.txt";

open(FILE,"<$file") || die "Cannot open file $file.  Reasons: $!";
close(FILE);

The above code will print what is in quotations if the open call does not work. It will also exit the script.

Richard

Solutions...

richjb — Thu, 13 Jul 2000 01:52:11 +0000

There are quite a few things you can do to check your code.

Add -w to the end of the path to perl. This will print any suntax error that may be found to the log files (I think). Beware: Although your script may work fine, this sometimes prints "useless" info to the log files each time the script is ran. Suggestion: Only use on final script to see if there is anything you could change to make it better.
Example:

#!/usr/bin/perl -w
'
Use the below code at the top of all your scripts (right under the path to PERL). If a 500 error happens, you will not see the standard page. Instead, you will see a page with an explination of what was wrong. Usually this helps, but if your script is really messed up (or other reasons) it will just say "Failed because of complications with scripts" or something like that:
BEGIN { use CGI::Carp qw(fatalsToBrowser); }
'

Hope that helped.

Richard