hi ich versuche, eine Verbindung zu einer Oracle-Datenbank über DBI und ich dieses:

Treiber noch nicht umgesetzt disconnect_all Methode. in / opt /perl/lib/site_perl/5.8.0/sun4-solaris/DBI.pm line 575
ENDE nicht - Anruf Warteschlange abgebrochen.


Ich weiß, für alle, das Skript war früher, hat aber plötzlich nicht mehr funktionierte.

Ich kann nicht eine Spur oder finden Sie das Protokoll, da log4perl nicht installiert ist. Ich kann nicht installieren CPAN-Modul.

Brauchen Sie Hilfe::: Das ist, was ich mit für connectibng::

my $ db \u003d DBI-> connect ( "DBI: Oracle: $ ORACLE_SID", "$ oracle_user", "$ oracle_passwd")

$ db-> (RaiseError) \u003d 1;
my $ sth \u003d $ db-> prepare ( "SELECT-Abfrage hier ...");

$ sth-> execute ()

while (my @ row \u003d $ sth-> fetchrow_array)
(
my $ a \u003d $ row [0];
my $ b \u003d $ row [1];

Weiter, es sei denn $ a;
Weiter, es sei denn, $ b;

)
$ db-> disconnect;

die Sprache ist perl