DBD::mysqlPP 0.04

DBD::mysqlPP is a pure Perl MySQL driver for the DBI.

SYNOPSIS

use DBI;

$dsn = "dbi:mysqlPP:database=$database;host=$hostname";

$dbh = DBI->connect($dsn, $user, $password);

$drh = DBI->install_driver("mysqlPP");

$sth = $dbh->prepare("SELECT * FROM foo WHERE bla");
$sth->execute;
$numRows = $sth->rows;
$numFields = $sth->{'NUM_OF_FIELDS'};
$sth->finish;

EXAMPLE

#!/usr/bin/perl

use strict;
use DBI;

# Connect to the database.
my $dbh = DBI->connect("dbi:mysqlPP:database=test;host=localhost",
"joe", "joe's password",
{'RaiseError' => 1});

# Drop table 'foo'. This may fail, if 'foo' doesn't exist.
# Thus we put an eval around it.
eval { $dbh->do("DROP TABLE foo") };
print "Dropping foo failed: $@n" if $@;

# Create a new table 'foo'. This must not fail, thus we don't
# catch errors.
$dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))");

# INSERT some data into 'foo'. We are using $dbh->quote() for
# quoting the name.
$dbh->do("INSERT INTO foo VALUES (1, " . $dbh->quote("Tim") . ")");

# Same thing, but using placeholders
$dbh->do("INSERT INTO foo VALUES (?, ?)", undef, 2, "Jochen");

# Now retrieve data from the table.
my $sth = $dbh->prepare("SELECT id, name FROM foo");
$sth->execute();
while (my $ref = $sth->fetchrow_arrayref()) {
print "Found a row: id = $ref->[0], name = $ref->[1]n";
}
$sth->finish();

# Disconnect from the database.
$dbh->disconnect();

Product's homepage

Requirements:

· Perl