読者です 読者をやめる 読者になる 読者になる

insert or update時

use DBD::Oracle qw/:ora_types/;

$sth = $self->{dbh}->prepare($query);
foreach (@$blob) { $sth->bind_param($_, $val->[$_], { ora_type => ORA_BLOB }) };
foreach (@$clob) { $sth->bind_param($_, $val->[$_], { ora_type => ORA_CLOB }) };
$sth->execute(@$val) or croak("db execute error [$DBI::errstr]");