Hallo erstmal,
mir gehts nicht so gut denn ich habe ein Problem mit Perl:DBI und dem Adabas-Treiber. Und zwar habe vesuche ich einfach erst einmal mit diesem Skript auf die Datenbank zuzugreifen:
#!/usr/local/bin/perl -w
use DBI;
print "Test\n";
my $user = "irgendwer";
my $password = "irgendwas";
my $data_source = "dbi:Adabas:refdb";
$dbh = DBI->connect ( $data_source, $user, $password )
or die "Keine Verbindung zur Datenbank moeglich !\n";
$dbh->disconnect;
Und als Ausgabe bekomme ich folgendes:
QuoteTest
install_driver(Adabas) failed: Can't locate loadable object for module Adabas in @INC (@INC contains: /usr/local/lib/perl5/5.8.3/PA-RISC2.0 /usr/local/lib/perl5/5.8.3 /usr/local/lib/perl5/site_perl/5.8.3/PA-RISC2.0 /usr/local/lib/perl5/site_perl/5.8.3 /usr/local/lib/perl5/site_perl .) at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a module that DBD::Adabas requires hasn't been fully installed
at ./dbi-test1.pl line 15
Use of inherited AUTOLOAD for non-method Adabas::exit() is deprecated at /usr/local/lib/perl5/5.8.3/DBD/Adabas.pm line 44.
Can't locate auto/Adabas/exit.al in @INC (@INC contains: /usr/local/lib/perl5/5.8.3/PA-RISC2.0 /usr/local/lib/perl5/5.8.3 /usr/local/lib/perl5/site_perl/5.8.3/PA-RISC2.0 /usr/local/lib/perl5/site_perl/5.8.3 /usr/local/lib/perl5/site_perl .) at /usr/local/lib/perl5/5.8.3/DBD/Adabas.pm line 44
END failed--call queue aborted.
Im Verzeichnis /usr/local/lib/perl5/5.8.3/DBD/ befindet sich aber ein Adabas.pm
Die Datei odbc.ini habe ich folgendermaßen gefüllt:
Quote[Data Sources]
test
[test]
ServerDB=refdb
ServerNode=
Sollte der letzte Eintrag wirklich leer bleiben oder kommt da die Localhost-IP rein?
Was habe ich vergessen?
Gruss Christian
edit renee: [code]- und [quote]-Tags zur besseren Lesbarkeit eingefügt\n\n
<!--EDIT|renee|1089902460-->