Pardon the duplication, but the contents of
perlboy26sf's scratch pad are:
[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 3 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.
[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 4 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.
[Wed Aug 14 01:38:28 2002] device2obj.pl: Field 5 has an Oracle type (
+108) which is not explicitly supported at /opt/perl/modules/Oracle/8.
+1.6/lib/5.6.0/DBD/Oracle.pm line 293.
# sql table definition
----------------------------------------- -------- ------------------
+----------
INTERFACE_ID NUMBER
DEVICE_ID NUMBER
INTERFACE VARCHAR2(32)
ARP ARPS_NT
CDP CDPS_NT
EIGRP EIGRPS_NT
ADMIN_STATE VARCHAR2(32)
LINE_PROTOCOL_STATE VARCHAR2(48)
HARDWARE VARCHAR2(48)
ADDRESS VARCHAR2(48)
MTU VARCHAR2(48)
BW VARCHAR2(48)
DLY VARCHAR2(48)
RELIABILITY VARCHAR2(48)
TXLOAD VARCHAR2(48)
RXLOAD VARCHAR2(48)
ENCAPSULATION VARCHAR2(48)
LOOPBACK_STATE VARCHAR2(48)
ARP_TYPE VARCHAR2(48)
ARP_TIMEOUT VARCHAR2(48)
LAST_INPUT VARCHAR2(48)
LAST_OUTPUT VARCHAR2(48)
LAST_OUTPUT_HANG VARCHAR2(48)
essentially, whats happening is that the following sql:
my $sql = "select d.device_id, i.interface_id, i.arp, i.eigrp, i.c
+dp from device_objtab d, interfaces_objtab i where d.device_id = $obj
+ect_id";
is attempting to recover a type (three, really) 108 ora_type field, wh
+ich in these instances are user-defined nested table structures.
i was hoping to find a way to tell DBI how to handle this type for ret
+rieval.
my $sth = $dbh->prepare($sql) || warn "[@caller]\n";
if (!(defined $sth)) { $OraMethods::error = "Can't prepare $sql: $D
+BI::errstr $sql \n -> [@caller]\n" and return 0; }
--t. alex
"Mud, mud, glorious mud. Nothing quite like it for cooling the blood!"
--Michael Flanders and Donald Swann