Hi there.
Brand new to PERL so please bear with me. (I'm running Win32/Apache)
When I include the line
use strict;
in any perl program, I get the following error:
"Internal Server Error
The server encountered an internal error or misconfiguration and was unable to
complete your request. Please contact the server administrator, [no address given]
and inform them of the time the error occurred, and anything you might have done that
may have caused the error.
More information about this error may be available in the server error log.
--------------------------------------------------------------------------------
Oracle HTTP Server Powered by Apache/1.3.22 Server at ..."
All programs run fine when that is commented out. I have strict.pm in the lib
directory - but I'm still learning about modules so I don't know if it's set up
correctly.
Sample code follows:
#!c:/perl/bin/perl
use strict;
use DBI;
use lib "c:\perl\lib";
use CGI qw(:standard escapeHTML);
print header(), start_html(),
b("USER ACCESS DATA"),
br,
my $dbh = DBI->connect('dbi:Oracle:xxx', 'xxx', 'xxx') || die $DBI::errstr;
my $sth = $dbh->prepare( q{
SELECT first_name, last_name
FROM dfas_admin.user_access
});
my $rc = $sth->execute;
my $NUM_OF_ROWS=0;
my @row;
while ( @row = $sth->fetchrow_array( ) ) {
$str = DBI::neat_list([EMAIL PROTECTED], 30, " ");
print "$str,";
$NUM_OF_ROWS++;
}
warn "error: $DBI::errstr\n"
if $DBI::err;
print "\nQuery returned $NUM_OF_ROWS rows.\n";
$sth->finish;
end_html();
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
