Opened by sabrina at 2006-09-13 16:49
User since
2006-08-03
264 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-03
264 Artikel
BenutzerIn
mein chef hat zwar gemeint ich soll die datei neu open und es dann dort aendern aber ich hab es jetzt so hinbekommen hier mein code:
obwohl er nicht gemeckert hat hab ich es mal ohne my probiert und siehe da es funktioniert!
hatte den code also gestern schon richtig nur mit my und deshalb ging nichts! hab mich zu versteift naja manchmal hilft halt doch darueber zu schlafen
lg sabrina
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';
open(my $write_fh, '>', $output) or die $!;
for my $file(@files){
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
$line =~ tr/\xa0//d;
print $write_fh $line;
}
close $fh;
}
close $write_fh or die $!;
hatte den code also gestern schon richtig nur mit my und deshalb ging nichts! hab mich zu versteift naja manchmal hilft halt doch darueber zu schlafen
lg sabrina