Good evening,
I have been struggeling with oracle selects all day am getting some strange
results.
I can't seem to find out what is wrong with the following script:
#!/usr/bin/perl -w
use strict;
use DBI;
# Connect to the database
my $dbh = DBI->connect( 'dbi:Oracle:mercury.systime',
'systime',
'systime',
{
RaiseError => 1,
AutoCommit => 0
}
) || die "Database connection not made: $DBI::errstr";
print "connected\n";
# Insert a new row
$dbh->do("INSERT INTO t_user ( name, adresse, plz, land, ort, vorname )
VALUES( 'van Leeuwen' , 'Emmi-Welter Str 22', 52064, '0049', 'Aachen',
'Nico' )");
# Get the row back
my $sth = $dbh->prepare("SELECT name, adresse, plz, ort, land, vorname
FROM t_user");
$sth->execute();
my( $name, $adresse, $plz, $ort, $land, $vorname );
$sth->bind_columns( undef, \$name, \$adresse, \$plz, \$ort, \$land,
\$vorname );
while( $sth->fetch() ) {
print "$name, $adresse, $plz, $ort, $land, $vorname\n";
print "-------------------------------\n";
}
$sth->finish();
$dbh->disconnect();
exit;
On a clean database this script generates the following response:
centriumdb:/usr/local/httpd/cgi-bin # ./testinsert.pl
connected
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
, , , , ,
-------------------------------
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
, , , , ,
-------------------------------
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
Use of uninitialized value in concatenation (.) at ./testinsert.pl line 48.
, , , , ,
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
van Leeuwen, Emmi-Welter Str 22, 52064, Aachen, 0049, Nico
-------------------------------
centriumdb:/usr/local/httpd/cgi-bin #
when I select * from t_user in SQL plus I get more endless mumbo jumbo.
but when I delete:
SQL> delete from t_user;
1 row deleted.
SQL>
What could be going on?
Hope someone can shed some light.
Nico.
