Opened by sabrina at 2006-08-30 11:40
User since
2006-08-03
264 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-03
264 Artikel
BenutzerIn
dann ist aber zwischen dem letzen spalte und der angefuegten kein ;
dann habe ich einfach geschrieben
geht das auch?also die ausgabe waere richtig!
noch ne kurze frage wie schreibe ich ein open das mehrere dateien oeffnen soll?
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?)
dann habe ich einfach geschrieben
Code: (dl
)
print OUTDATEN join(';',@$entry),";","50 MB","\n";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 $!;