Hallo liebe Perl-Gemeinde,
ich lese mit dem Modul „use Win32:
DBC;“ und einem Perl-Script Daten von einem Microsoft SQL-Server und erhalte dabei folgende Fehlermeldungen:
Use of uninitialized value at C:/Perl/site/lib/Win32/ODBC.pm line 260.
Use of uninitialized value at C:/Perl/site/lib/Win32/ODBC.pm line 261.
Mein SqlStatement lautet:
print „Team:
\n“;
$SqlStatement = „SELECT * FROM Gruppe WHERE GruppenID > 1“;
if ($db->Sql($SqlStatement)) {
print „SQL failed.\n“;
print "Error: " . $db->Error() . „\n“;
$db->Close();
exit;
} else {
while($db->FetchRow()) {
undef %Data;
%Data = $db->DataHash();
print „“ . $Data{„Gruppenbezeichnung“} . „\n“;
}
print "
}
Zeile 247-266 von ODBC.pm lauten:
sub GetData{
my($self) = @_;
my(@Results, $num);
@Results = ODBCGetData($self->{‚connection‘});
if (!(@Results = processError($self, @Results))){
return undef;
}
This is a special case. Do not call processResults
ClearError();
foreach (@Results){
s/ +$//; # HACK
$self->{‚data‘}->{ ${$self->{‚fnames‘}}[$num] } = $_;
$num++;
}
return is a hack to interface with a assoc array.
return wantarray? (1, 1): 1;
}
Als Nicht-Informatikerin kann ich damit leider nichts anfangen.
Ich würde mich freuen, wenn mir jemand weiterhelfen könnte.
Tschüs
Wiebke Burdin (Studiengang Dokumentation)
