0byt3m1n1

Path: /data/0/0/16/102/16102/user/16456/cgi-bin/ [ Home ]
File: db_test.pl
#!/usr/local/bin/perl
use strict;
use DBI;

print "Content-type:text/html\n\n";

my $driver   = "mysql";
my $server   = "205.178.146.15:3306";
my $database = "sale";
my $url      = "DBI:$driver:$database:$server";
my $user     = "vadym";
my $password = "test";
 
my $db_handle = DBI->connect( $url, $user, $password) or print "Failure! $DBI::errstr \n";

my $sql = "SELECT * FROM houses";
my $statement = $db_handle->prepare($sql)
    or print "Couldn't prepare query '$sql': $DBI::errstr\n";

$statement->execute()
    or print "Couldn't execute query '$sql': $DBI::errstr\n";

   
while (my $row_ref = $statement->fetchrow_hashref())
{
#    print "OK\n"
    print "id <b>$row_ref->{id}</b> has name <b>$row_ref->{descr}</b>.<br>";
}

$db_handle->disconnect();