DBD::mysqlPPDBD::mysqlPP is a pure Perl MySQL driver for the DBI. | |
Download |
DBD::mysqlPP Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Hiroyuki OYAMA
- Publisher web site:
- http://search.cpan.org/~oyama/Crypt-GCM-0.02/lib/Crypt/GCM.pm
DBD::mysqlPP Tags
DBD::mysqlPP Description
DBD::mysqlPP is a pure Perl MySQL driver for the DBI. 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->, name = $ref->n"; } $sth->finish(); # Disconnect from the database. $dbh->disconnect(); Requirements: · Perl
DBD::mysqlPP Related Software