perl DBI/DBDの使い方

% mysql -u root -p test
mysql> create table users(id INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT, name varchar(32));
mysql> insert into users(name) values("a");
mysql> insert into users(name) values("b");
mysql> insert into users(name) values("c");

$dbh = DBI->connect($dsn, $user, $password, {'RaiseError' =>1} )

DBの切断

$dbh->disconnect();

DBのエラーメッセージ
エラーがあった場合は、errstrにエラーメッセージが格納されます。

$dbh->errstr

parepared statementを準備する
プリペアドステートメントを作ります。

$sth = $dbh->prepare ( qq { SQL文 } ) or die $dbh->errstr;;

例

$sth = $dbh->prepare ( qq {
		SELECT * FROM users WHERE name = ?
		} ) or die $dbh->errstr;;

$rv = $sth->execute() or die $dbh->errstr;;

値を１つバインドするとき

$rv = $sth->execute($value1) or die $dbh->errstr;;

値を３つバインドするとき

$rv = $sth->execute($value1,$value2,$value3) or die $dbh->errstr;;

サンプルプログラム

#!/usr/local/bin/perl -w
use strict;
use warnings;
use DBI;

my $dbi = 'mysql';
my $database = 'test';
my $hostname = 'localhost';
my $dsn = "dbi:$dbi:database=$database;host=$hostname";
my $user = 'root';
my $password = '';

my $rv;
my $dbh;
$dbh = DBI->connect($dsn, $user, $password, {'RaiseError' => 1} )
	or die $dbi->errstr;
my $sth = $dbh->prepare( qq { SELECT * FROM users } )
	or die $dbh->errstr;
$rv = $sth->execute()
	or die $dbh->errstr;
print "$rv\n";  # 取得できた数
while (my @row = $sth->fetchrow_array ) {
	print "@row\n";
}
$dbh->disconnect();
exit;