#!c:\perl\bin\perl.exe -w
# Datenbank -- Zelleninhalt verändern
use DBI;

$dbh = DBI->connect("dbi:Oracle:host=TestRechner;sid=ora1;port=1521", "test", "test");
if (!$dbh)	{
	print "Zgriff verweigert!\n";
	exit (1);
}
$Abfrage1 = "SELECT SP1,SP2 FROM tab2 ORDER by SP1";
print "$Abfrage1 \n";
$sth = $dbh->prepare($Abfrage1);
$rv = $sth->execute();
print "$rv\n";

if ($rv <= 0)	{
	print "Keine Ergebniswerte!\n";
	#exit (1);
}
while (@row = $sth->fetchrow_array)	{
	printf " %-40s  %s\n",$row[0],$row[1];
}

$dbh->disconnect if ($dbh);