DBI::Pgのテストコード

Perl PostgreSQL

こないだ、ちょこちょこっと書いたコードをこっちにメモしておこう。



#!/usr/bin/perl

use DBI;
$dbname = "test";

$dbh = DBI->connect("dbi:Pg:dbname=$dbname", "", "");
$sql1 = qq/create table test (id varchar(16), name varchar(16))/;

$sql2 = qq/insert into test values ('000001', 'mikamama')/;

$sql4 = qq/delete from test where id='000001'/;

$sql5 = qq/drop table test/;
$rv = $dbh->do($sql1);

print "sql1: $rv\n";

$rv = $dbh->do($sql2);

print "sql2: $rv\n";
$sth = $dbh->prepare('select * from test where id=?');

$sth->execute('000001');

while (@ary = $sth->fetchrow_array()) {

  print $ary[0], ':', $ary[1], "\n";

}
$rv = $dbh->do($sql4);

print "sql4: $rv\n";