Thread letzte Spalte in jeder zeile ändern: die zahlen durch best. zahl teilen (57 answers)
Opened by sabrina at 2006-10-18 18:37

sabrina
 2006-10-19 16:39
#70964 #70964
User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]
schlechte lösung da jetzt alle manipulationen die mich so viel zeit gekostet haben unbrauchbar sind.
wieso schreib ich es nicht einfach in das andere script, in dem ich alle dateien zusammen fasse?
hier der normale code
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

use strict;
use warnings;
my @files = qw(BLUBBER1.txt BLUBBER2.txt BLUBBER3.txt BLUBBER4.txt);
my $OUTPUT = 'ZIELgesamt.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 $!;

die Input daten sind:
Code: (dl )
Gehring;Sabrina;BLUBB;ge3fr;32 016;50

kann man damit vielleicht besser arbeiten da die zahlen im Script von dem xa0 (leerstelle)befreit werden?
hab schon probiert renees einzeiler einzu bauen jedoch ohne erfolg?
lg sabrina

View full thread letzte Spalte in jeder zeile ändern: die zahlen durch best. zahl teilen