DBI - database handle

[Perl] => [DBI]

　

perlからデータベースに接続するにはDBIモジュールを使用します。

以下はPostgreSQLの場合。

#モジュール読み込み
use DBI;

#データベースに接続
my $dbname = 'dbname' #データベース名
my $dbhost = 'dbhost'; #ホスト名
my $dbuser = 'dbuser'; #ユーザ名
my $dbpass = 'dbpass'; #DBパスワード

my $dbh = DBI->connect("DBI:Pg:dbname=$dbname;host=$dbhost","$dbuser","$dbpass",{AutoCommit => 1}) || warn $DBI::errstr;

#SQL文の準備
my $sth = $dbh->prepare("SELECT * from table_name");

#SQL文の実行
$sth->execute;

#SQL実行結果を表示
while (@row = $sth->fetchrow_array){
print "@row\n";
}

#データベースへの接続を切断
$sth->finish;
$dbh->disconnect || warn $dbh->errstr;

※INSERT文にてNULL値を与えるにはundefをわたせばよい。

---

---