Newbie: My database cgi works but gives me weird output

[shalomgod]

#!/usr/bin/perl -w


use CGI;
use strict;
use DBI;


my $hello ="hello";

my $query = new CGI->new();



print $query->header("text/html"),


$query->start_html(-title => "Database Test"),


$query->p("Database Test"),


my $db_handle = DBI->connect("dbi:mysql:database=Test;host=localhost;user=root;")
or die;

my $sql = "SELECT * FROM users WHERE id = 2";
my $statement = $db_handle->prepare($sql)
or die;

$statement->execute()
or die;

while (my $row_ref = $statement->fetchrow_hashref())
{

my $holder = $row_ref->{email};


print $holder;

}



$db_handle->disconnect();



$query->end_html;

Basically I get the correct output which is an email address. But i also get an unwanted hashcode..

DBI::db=HASH(0x8382f78)blabla@bla.co.uk

I get no compile errors or anything so im wondering why DBI is getting printed out...

Maybe it has something to do with the fetch_row method?

Any help is much appreciated.

 

[mbrooks]

Because you are treating the hashref->{} like an array() which is incorrect. Do it this way.

$statement->execute() or die;
    
my $row_ref = $statement->fetchrow_hashref()

print $row_ref->{email};

M. Brooks

http://mbrooks.info