schreiben in array dann auswerten ? - #78443 (Allgemeines zu Perl)

fraggs

2007-07-13 13:24

User since
2006-09-11
179 Artikel
BenutzerIn

halloechen so da die datenbank abfrage nun perfekt laeuft hab ich ein kleines problem.

Code: (dl )

#Liest die Tabelle tblEndmontage und nimmt die ganze Tabelle und schiebt sie in $alles
my $alles = $cn->selectall_arrayref("SELECT * FROM tblEndmontage");
#fuer jede Reihe druckt er die Ergebnisse mit einem Colon trenner aus in die CLI
foreach my $row ( @{$alles} )
       {
               print join(";", @{$row}), "\n";
       }
}

dies ist das stueck des codes. also die query klappt und druckt auch die ganze reihe der tabelle perfekt in die CLI aus nun will ich diese aber nicht nur ausdrucken sondern entweder in ein array speichern (wenn das klappt) oder temporaer eine txt erstellen wo alle daten reingeschrieben werden.

ich habs schon versucht mit

Code: (dl )

foreach my $row ( @{$alles} )
       {
               open( FILE, ">", $tmptxt )  or die $!;

               print join FILE (";", @{$row}), "\n";

               close(FILE);
       }
}

allerdings erzeugt er das txt file doch schreibt nichts herrein und wenn er was herrein schreibt dann eine zeile und das wars.

und ich bekomme auch ganz viele tolle errors die mir sagen das

Quote
Use of uninitialized value in join or string at dballdb1.pl line 45.

... und welche variable ist das die dort nicht definiert ist ?

bedanke mich

mmm twix