Select Code to Download

Select or download this

#!/usr/bin/perl

...
  (defined DBI->errstr() ? DBI->errstr() : 'none'), "\n" ;
print join("\n", @dbms_lines), "\n";
$dbh->disconnect();

Select or download this

    <- do= 1 at test_dbms_output_get.pl line 22
    -> dbms_output_get for DBD::Oracle::db (DBI::db=HASH(0x29ca0c)~0x2
+9c9a0)
...
        OCIErrorGet after OCIStmtExecute (er1:ok): -1, 6502: ORA-06502
+: PL/SQL: numeric or value error: character string buffer too small
ORA-06512: at "SYS.DBMS_OUTPUT", line 148
ORA-06512: at line 1