require command

[branmh]

require "$script";

I have this in a small cgi file: Is there a way see if the $script varible is found, if not show a error instead of a 500 error.

[moltar]

You mean if the file exists?

if (  !(-e $script) ) {
 print "Error";
}

[branmh]

Okay when I add
if (!(-e $script) ) {
print "Error";
}

to my file I now get an error 500.

[moltar]

Well, this was just an example piece of code. You need to work around it.

if ( !(-e $script) ) {
 print "Content-type: text/html\n\n";
 print "Error";
 exit(0);
} else {
 require "$script";
}

[branmh]

thanks

[Storyteller]

The proper Perl idiom for it is this:

eval "require '$script'";
print "Couldn't include $script: $!" if $!;

This handles include paths as well as various errors that may arise on "require".

[dkubb]

Storyteller, you probably meant to use $@ rather than $! here:

eval "require '$script'";

print "Couldn't include $script: $@" if $@;