![]() |
|< 1 2 3 4 5 6 7 8 ... 10 >| | ![]() |
93 Einträge, 10 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 my @array = qw(71 72 73 74 75);
7
8 for my $elem(@array){
9 $elem = chr($elem);
10 }
11
12 print $_,"\n" for(@array);
1
2
# ersetzt den bisherigen print-Befehl:
print OUTDATEN join(';',@$entry),'NeueSpalte',"\n"; #ausgabe in datei
print OUTDATEN join(';',@$entry),";","50 MB","\n";
open(FH,"<ZIEL1.txt,ZIEL2.txt,ZIEL3.txt,ZIEL4.txt") or die $!;
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 $!;
print OUTDATEN join(';',@$entry),";","50 MB","\n";
print OUTDATEN join(';',@$entry),";50 MB","\n";
Quotenoch 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 $!;
![]() |
|< 1 2 3 4 5 6 7 8 ... 10 >| | ![]() |
93 Einträge, 10 Seiten |