why do i get error 500 with this perl code?

Question

Here is my perl code located in /perl-bin/ directory but for some reason when i try to get something from MySQL i keep getting Error 500

here is the code

#! /usr/bin/perl

 use warnings;
 use strict;

 print "Content-type: text/html\n\n";
 print "<!DOCTYPE html>\n";
 print "<html>\n";
 print "<head>\n";

 print "<title>00000000000000000000</title>";
 print "<link rel='stylesheet' type='text/css' href='style.css' />";

 print "</head>\n";
 print "<body>\n";

 print "<div id='top'></div>";
 print "<div id='header'>";
 print "<div id='logo'></div>";

 print "</div>";

 use Mysql;

# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "000_ooo";
$tablename = "users";
$user = "000_root";
$pw = "l00V0r009;00XE_%0q;U00000000000000";

# PERL MYSQL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# DEFINE A MySQL QUERY
$myquery = "SELECT * FROM $tablename";

# EXECUTE THE QUERY FUNCTION
$execute = $connect->query($myquery);

# HTML TABLE
print "<table border='1'><tr>
<th>id</th>
<th>product</th>
<th>quantity</th></tr>";

# FETCHROW ARRAY

while (@results = $execute->fetchrow()) {
    print "<tr><td>"
    .$results[0]."</td><td>"
    .$results[1]."</td><td>"
    .$results[2]."</td></tr>";
}

print "</table>";

 print "</body>\n";
 print "</html>\n";

Have you tried looking in your webserver's error log? Have you tried running it from the command line? — cjm
– cjm, Commented Oct 26, 2011 at 4:49
Then refuse to do any more work until your client or manager give you a reasonable working environment :-) — Dave Cross
– Dave Cross, Commented Oct 26, 2011 at 10:24
@PT Desu, If you don't have access to your logs, we definitely don't. — ikegami
– ikegami, Commented Oct 26, 2011 at 18:34

cjm · Accepted Answer · 2011-10-26 05:26:13Z

8

You can try using CGI::Carp to get an error message in your browser:

use CGI::Carp qw(fatalsToBrowser);

(Don't leave this in after debugging unless you want your users to see cryptic error messages that might reveal confidential information.)

Are you sure the Mysql module is the right way to access the database? That module is obsolete; everybody uses DBI these days (possibly with another layer on top). You might try a Hello World type script that just does use Mysql; but doesn't attempt to actually connect to the database, to see if it's even installed.

answered Oct 26, 2011 at 5:26

cjm

62.2k9 gold badges133 silver badges179 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Dave Cross · Accepted Answer · 2011-10-26 12:43:18Z

5

A simple syntax check reveals the problem.

$ perl -c mysql
Global symbol "$host" requires explicit package name at mysql line 26.
Global symbol "$database" requires explicit package name at mysql line 27.
Global symbol "$tablename" requires explicit package name at mysql line 28.
Global symbol "$user" requires explicit package name at mysql line 29.
Global symbol "$pw" requires explicit package name at mysql line 30.
Global symbol "$connect" requires explicit package name at mysql line 33.
Global symbol "$host" requires explicit package name at mysql line 33.
Global symbol "$database" requires explicit package name at mysql line 33.
Global symbol "$user" requires explicit package name at mysql line 33.
Global symbol "$pw" requires explicit package name at mysql line 33.
Global symbol "$connect" requires explicit package name at mysql line 36.
Global symbol "$database" requires explicit package name at mysql line 36.
Global symbol "$myquery" requires explicit package name at mysql line 39.
Global symbol "$tablename" requires explicit package name at mysql line 39.
Global symbol "$execute" requires explicit package name at mysql line 42.
Global symbol "$connect" requires explicit package name at mysql line 42.
Global symbol "$myquery" requires explicit package name at mysql line 42.
Global symbol "@results" requires explicit package name at mysql line 52.
Global symbol "$execute" requires explicit package name at mysql line 52.
Global symbol "@results" requires explicit package name at mysql line 54.
Global symbol "@results" requires explicit package name at mysql line 55.
Global symbol "@results" requires explicit package name at mysql line 56.
mysql had compilation errors.

Your program includes use strict (as it should). But you haven't declared any of your variables.

answered Oct 26, 2011 at 12:43

Dave Cross

69.5k3 gold badges55 silver badges101 bronze badges

2 Comments

PT Desu Over a year ago

it wont work even if i remove use strict, while i seem to have all needed modules, DBD::Pg (2.18.1), DBD::SQLite (1.31), DBD::SQLite2 (0.33), DBD::mysql (4.019), DBI (1.616)

Dave Cross Over a year ago

Don't remove strict. Fix the problem by declaring the variables. What is that list of required modules? You don't use any of those modules. You use Mysql.pm. It looks like Mysql.pm used to be part of the DBD::mysql distribution but it was removed about five years ago. This program is not going to work until you change it to work with DBI and DBD::mysql.

dsolimano · Accepted Answer · 2011-10-26 12:01:15Z

1

I agree agree with @cjm. You should definitely be using the DBI module at a minimum. Also, for aesthetics, its best to keep all of your 'use' statements at the top of your code, prior to any other code.

One other thing I would make sure of is that the username and password you are using actually work. Try logging into mysql via the command line, if they do, connect to the db and also ensure the table exists. Take those variables out of the equation as well.

edited Oct 26, 2011 at 12:01

dsolimano

9,0463 gold badges52 silver badges66 bronze badges

answered Oct 26, 2011 at 6:01

numberwhun

9569 silver badges7 bronze badges

1 Comment

PT Desu Over a year ago

all mysql related information is correct, its been tested via PHP

Collectives™ on Stack Overflow

why do i get error 500 with this perl code?

3 Answers 3

Comments

2 Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

2 Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related