Help with Perl

[Brett Baisley]

Hello

I'm new to Perl and taking it as part of my class. I am making a Perl
program that does some calculations and depending on the result it gets, it
either failed or successful. If it fails, it calls the fail sub called
failPage().

I am not sure how to get it to work, specifially, how to call a function.

This is what I am testing with:

#!/usr/bin/perl -w
use CGI ":standard";
failPage();

then it should call the failPage sub, which simply prints "Fail" to the
page. However, it doesn't work. It says a server error, so I'm doing
something wrong.

Any suggestions?

Thanks

[Gunnar Hjalmarsson]

Brett Baisley wrote:

I'm new to Perl and taking it as part of my class. I am making a
Perl program that does some calculations and depending on the
result it gets, it either failed or successful. If it fails, it
calls the fail sub called failPage().

I am not sure how to get it to work, specifially, how to call a
function.

This is what I am testing with:

#!/usr/bin/perl -w
use CGI ":standard";
failPage();

then it should call the failPage sub, which simply prints "Fail" to
the page. However, it doesn't work. It says a server error, so I'm
doing something wrong.

You are obviously trying to execute the program as a CGI script (i.e.
from a browser), which is something that you are probably not supposed
to do in a Perl class for beginners.

Run the program from the command prompt.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

[Joe Smith]

Brett Baisley wrote:

#!/usr/bin/perl -w
use CGI ":standard";
failPage();

Immediately after "use CGI" add this line:
use CGI::Carp 'fatalsToBrowser';

Next time, post the significant parts of the program.

The three lines you posted are obviously missing the part with
sub failPage {
print header(-type => 'text/plain'); print "Failed\n";
}

Better yet, design your program so that is can be run from the
command line, either a Unix/Linux shell or from the "C:\>" prompt.
-Joe