in reply to Error getting Oracle dbms_output from DBI
You could rewrite this function or write a similar function yourself and give yourself a higher limit.sub dbms_output_get { my $dbh = shift; my $sth = $dbh->prepare_cached("begin dbms_output.get_line(:l, + :s); end;") or return; my ($line, $status, @lines); # line can be greater that 255 (e.g. 7 byte date is expanded o +n output) $sth->bind_param_inout(':l', \$line, 400, { ora_type => 1 }); $sth->bind_param_inout(':s', \$status, 20, { ora_type => 1 }); if (!wantarray) { $sth->execute or return undef; return $line if $status eq '0'; return undef; } push @lines, $line while($sth->execute && $status eq '0'); return @lines; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Error getting Oracle dbms_output from DBI
by kirby900 (Initiate) on Jun 17, 2010 at 01:29 UTC | |
by kirby900 (Initiate) on Jun 17, 2010 at 19:01 UTC |