http://qs321.pair.com?node_id=435375


in reply to Cannot run a simple script?help im new

all i keep getting is 500 internal error, i cannot understand why this is happening???

You've received some good advice and clearly some kind of CGI tutorial would help you out.

The obvious reason that your script won't compile, however, is that you are using strict (recommended) but not then using my to declare your variables.



MB

Replies are listed 'Best First'.
Re^2: Cannot run a simple script?help im new
by ginda (Initiate) on Mar 02, 2005 at 04:25 UTC
    Thanks all for your help
    I have tried to implement what you guys have advised heres the code:

    #!c:/perl/bin/perl -wT

    use strict;
    use CGI;
    use CGI::Carp qw(fatalsToBrowser);
    use vars qw($Query $sth $dbh $Value @results @row);
    $Query = new CGI( );
    use DBI;
    $dbh = DBI->connect('DBI:mysql:exelstock')
    or die "Cannot connect: " . $DBI::errstr;

    $Value = $Query->param('input');


    $sth = $dbh->prepare("SELECT * FROM stock WHERE name=$Value");
    $sth = $dbh->execute();
    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<BODY>\n";
    while (@results = $sth->fetchrow_array) { print "@row\n";
    }
    $sth = $dbh->finish();
    $dbh->disconnect();
    print "</HTML>\n";
    print "</BODY>\n";


    Heres the error i get now...any ideas???

    Can't locate object method "execute" via package "DBI::db" at c:\PROGRA~1\APACHE~1\apache\cgi-bin\project2.cgi line 23.
[reply]

      That's simply because, as the error message says, DBI::db doesn't have an execute method. Try changing it from $sth = $dbh->execute(); to $sth->execute();

      Also, please use code tags when posting code. Thanks.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom