#!/usr/bin/perl -w # use CGI qw(param); use DBI; use DBD::DB2::Constants; use DBD::DB2; use CGI qw/:standard/; # Test der DB Anbindung mit Perl auf AS/400 $dbh = DBI->connect("DBI:DB2:*LOCAL") or die "Ein Fehler: ".$dbh->err; $sql = "select NAME, VNAME from LIBTEST.TESTSTAMM"; $sth = $dbh->prepare($sql) or die "Fehler: ".$sth->err; $sth->execute() or die "Fehler bei Ausf}hrung: "-$sth->err; print < Datenbanktest ENDE_HEAD while(@data = $sth->fetchrow_array) { print "\n"; print "\n"; } print "
Name Vorname
".$data[0]."".$data[1]."
\n"; print "\n"; print "";