![]() |
|< 1 ... 6 7 8 9 10 >| | ![]() |
93 Einträge, 10 Seiten |
1
2
@renee fuer mich ist es ok wenn es nur eine kopie ist aber was muessste man aendern wenn es nicht ok waere?
denn die tatsache bleibt ja das die datei nach jedem oeffnen groesser wird!
QuotePerl /p&É&Ë&ɹl/ ist eine freie, plattformunabhängige und interpretierte Programmiersprache.
Der Linguist Larry Wall entwarf sie 1987 als Synthese aus C, den UNIX-Befehlen und anderen Einflüssen. Ursprünglich als Werkzeug zur System- und Netzwerkadministration vorgesehen,...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
my @files = qw(bla1.txt bla2.txt bla3.txt bla4.txt);
my $output = 'blagesamt.txt';
# NEU! Ausgabedatei vorher loeschen:
unlink $output or die "kann $output nicht loeschen: $!";
open(my $write_fh, '>>', $output) or die $!;
for my $file(@files){
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
print $write_fh $line;
}
close $fh;
}
close $write_fh or die $!;
kann blagesamt.txt nicht loeschen: No such file or directory at Untitled line 9
unlink $output if(-e $output);
![]() |
|< 1 ... 6 7 8 9 10 >| | ![]() |
93 Einträge, 10 Seiten |