ラージオブジェクトの削除

[Perl] => [DBI]

　

ラージオブジェクトの削除にはfunc(OID, 'lo_unlink') を使用します。

[使用例]

#!/usr/bin/perl

use DBI;

#AutoCommitはoffにすること
$dbh = $dbh = DBI->connect("DBI:Pg:dbname=dbname","username","password",{AutoCommit => 0});

#まずオブジェクトIDを取得
my($sth) = $dbh->prepare("SELECT \"OID\" FROM sample);
$sth->execute;
my($oid) = $sth->fetchrow_array();

#ラージオブジェクトの削除
$dbh->func($oid, 'lo_unlink');

$dbh->commit();
$dbh->disconnect();

---

---