Perl:Mysql:Zweites Select geht nicht

Computer: Software & Programmierung Programmierung allgemein
1

Hi , ich habe hier zwei verschiedenen Selects.
Der erste funktioniert prima, der zweite jedoch nicht, obwohl
bei „print „\n$sqll“;“ erstklassige MySQL Abfragen drin stehen/ausgegeben werden.
Woran kann das liegen ?
Thanks :smile:

# DATABASE CONNECT
$dbh=db-\>new();

$selection = "SELECT \* FROM program";
$dataObject= $dbh-\>db-\>prepare($selection);
$dataObject-\>execute();
@a\_tmp = $dataObject-\> fetchrow\_array
print "\n @a\_tmp";
$dataObject-\>finish;

my $sqll = '';
open(FILE,")) { 
 $sqll .= $i unless ($i =~ /\#/);
 if($sqll =~ /\;+/g){
 $sqll =~ s/\n/ /g;
 $dataObject= $dbh-\>db-\>prepare("$sqll");
 $dataObject-\>execute();
 $dataObject-\>finish;
 print "\n$sqll";
 $sqll = '';
 }
}
close(FILE);
2

Ich hatte jetzt auch mal das ähnliche Problem. Soweit wie ich das verstanden haben liegt das Problem in deiner Zeile:
@a_tmp = $dataObject-> fetchrow_array
Diese holt nämlich nicht alle Daten aus der gestarteten Abfrage und somit kannst du noch keine neue ausführen. Ich habs bei mir mit einer while-Schleife:

(Hier holt er nur eine Spalte, etwa SELECT nummer FROM table1)
$sth = $dbh->prepare("$befehl");
$rv = $sth->execute;
while (($nummer) = $sth->fetchrow_array) {push(@numliste,$nummer);}

Da gings. Nun mußt du eben dann nurnoch aus @numliste den ersten Eintrag rausholen.

$nummer1=@numliste[0];

Ich weis nicht ob ich das jetzt korrekt erklärt habe, aber so hats zumindest beir mir funkt.

mfg Slick