6 replies to this topic

[kevinsabres]

#!/usr/bin/perl 


useDBI;


chomp($id = <STDIN>);

$database="";

$user="";

$host="localhost";

$password="";


$dbh=DBI->connect('DBI: mysql: $database: $host, $user,$password') or die "Can't connect: ", DBI->errstr;


$sth = $dbh->prepare("SELECT id, title, author from book where id = $id");

$sth->execute();


print "Contents of book table."


while(@row = $sth->fetchrow_array()) 

{

	print "id:$row[0]\n";

	print "title:$row[1]\n";

	print "author:$row[2]\n";

}


$sth->finish();

$dbh->disconnect;

i keep getting compile erros when i run this in a unix shell. i took out the values of the variables for the passwords to post this here...

i get a syntax error it says near ) { on the while look and at near the } on the while loop.

anyone know what is wrong wit hthis code?

[kevinsabres]

I've never connected to a mysql database btw, just used a few tutorials online and from a book but cant get it to work

[phpforfun]

Just a small observation, I do believe there should be a space between use and DBI... And also, you dont have a ; at the end of your
print "Contents of book table."

[phpforfun]

Here is one I set up a while ago....

#!c:/perl/bin
use DBI;
use DBD::mysql;

# MySQL CONFIG VARIABLES 
%db =     ("host",         "mysqlc2",
         "database",     "tstaudit",
         "tablename",     "audits",
         "user",         "xxxxxxxxx",
         "pw",             "xxxxxxxxxxx");
         
$dsn        = "dbi:mysql:$db{'database'}:$db{'host'}:3306";
$connect     = DBI->connect($dsn, $db{"user"}, $db{"pw"}) or die "Unable to connect: $DBI::errstr\n";

# Set and prepare query 
$query         = "SELECT * FROM `audits`";
$query_handle = $connect->prepare($query);

# Execute 
$query_handle->execute();

# Bind table and column values 
$query_handle->bind_columns(undef, \$id, \$ticket, \$agent_id, \$test);

# Loop through the results 
print "<pre>\n";
print "ID\t Ticket\t\t\t Agent\t Test\n";
print "=============================================\n";
while($query_handle->fetch()) {
   print "$id\t $ticket\t $agent_id\t $test\n";
} 

[kevinsabres]

thanks for the help, this is my first time trying this for a school project

thanks for the help those 2 things you mentioned got it to say the syntax is ok.... BUT now when i run it i get this error do you knwo what it means:

Can't connect(DBI: mysql: $database: $host, $user, $password), no database driver specified and DBI_DSN env var not set at pbad.perl line 12

[kevinsabres]

ok I think i fixed it by altering it to:

$dbh=DBI->connect("DBI:mysql:databaase=$database:host=$host", $user, $password) or die "Can't connect: ", DBI->errstr;

BUT now i get these 2 errors:

DBD::mysql::st execute failed: No database selected at pbad.perl line 15, <STDIN> line 1.
DBD::mysql::st fetchrow_array failed: fetch() without execute() at pbad.perl line 19, <STDIN> line 1.

any help is greatly appreciated

[phpforfun]

Make sure to use..

use DBI;
use DBD::mysql;

And..

$dsn        = "dbi:mysql:$database:$host:3306";
$dbh     = DBI->connect($dsn, $user, $password) or die "Unable to connect: $DBI::errstr\n";