Alle *.txt Dateien in eine packen: zusammenführen der Daten - #57303 (Allgemeines zu Perl)

vayu

2005-08-19 14:18

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

foreach $data (@alledateien) {
   open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
   @alles = <IN>;
}

hier wird bei jedem schleifendurchlauf das array wieder neu angelegt und somit die alten daten überschrieben.

ich würd gleich die grad geöffnete datei in die OUT rüberschreiben.

btw close IN mit in die forschleife nehmen, wo du die Datei auch öffnest.

Code: (dl )

foreach $data (@alledateien) {
   open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
   while(<IN>) {
      print OUT $_;
   }
   close IN;
}
close OUT;

\n\n

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...