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]");