Opened by sabrina at 2006-08-30 11:40
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=sabrina,13.09.2006, 10:00]@dubu hab grad deinen zweiten code versucht da passiert genau das gleiche die datei wird nach jedem oeffnen groesser.[/quote]
Ja, korrekt. Die Ausgabedatei sollte zwischen den Aufrufen des Programms gelöscht werden, wenn man das nicht will. Kann man natürlich auch gleich im Programm machen, siehe die Ergänzung unten:
Ja, korrekt. Die Ausgabedatei sollte zwischen den Aufrufen des Programms gelöscht werden, wenn man das nicht will. Kann man natürlich auch gleich im Programm machen, siehe die Ergänzung unten:
Code: (dl
)
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 $!;