2007-12-03から1日間の記事一覧
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->e…
$self->{dbh}{LongReadLen} = $self->{max_lob_size} * 1024 if ($param->{blob} or $param->{clob});
やっぱりちょっとはまったのでメモ(というかコードの断片貼り付け)。