print OUTDATEN join(';',@$entry),";","50 MB","\n";

print OUTDATEN join(';',@$entry),";50 MB","\n";

Quote

noch ne kurze frage wie schreibe ich ein open das mehrere dateien oeffnen soll?

Code: (dl )

open(FH,"<ZIEL1.txt,ZIEL2.txt,ZIEL3.txt,ZIEL4.txt") or die $!;  

eigendlich muss ich die doch nur oeffnen dann mit chomp kurz drueber und dann datei zum schreiben oeffnen print und close beide oder?
oder lieber mit "."anneinander haengenalso so sieht mein code bis jetzt aus ohne die . (steht ja fuer anhaengen?)

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl
use warnings;
use strict;
open(FH,"<"ZIEL1.txt"."ZIEL2.txt"."ZIEL3.txt"."ZIEL4.txt") or die $!;           #oeffnen der datei
chomp my $line;
open(OUTDATEN, ">ZIELgesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
for my $FH(@data)
{
   print FH
}
close (OUTDATEN)or die $!;

  close (FH) or die $!;