Opened by sabrina at 2006-09-25 13:22
User since
2006-08-03
264 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-03
264 Artikel
BenutzerIn
also irgendwie tut das nicht so wie ich will hier mein code
die woerter sind immer noch im text dafuer keine fehlerausgabe
und wenn ich die while schleife so ändere
kommen auch keine fehlermeldungen nur in der ausgabe stehen dann noch die MFG und mitten in der ausgabe steht
hat jemand ne idee warum er MFG nicht rausschmeisst?
lg sabrina
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
my $fes = 'lala.txt';
my $fest = 'lalagesamt.txt';
my @lines;
my columns = 3;
open (my $fh,'<',$fes) or die $!;
while (my $line = <$fh>){
chomp $line;
my @line = (split(/[\s]+/,$line))[0..($columns-1)];
$line =~s:\bMFG\b::g;
$line =~s:\bDOME/GT\b::g;
$line =~s:\bOG\b::g;
push(@lines,\@line);
}
print join(";",@$_),"\n"for(@lines);
close $fh or die $!;
open(my $w_fh,'>',$fest) or die $!;
print $w_fh join(";",@$_),"\n"for(@lines);
close $w_fh or die$!;
die woerter sind immer noch im text dafuer keine fehlerausgabe
und wenn ich die while schleife so ändere
Code: (dl
)
1
2
3
4
5
6
7
8
while (my $line = <$fh>){
chomp $line;
$line =~s:\bMFG\b::g;
$line =~s:\bDOME/GT\b::g;
$line =~s:\bOG\b::g;
my @line = (split(/[\s]+/,$line))[0..($columns-1)];
push(@lines,\@line);
} kommen auch keine fehlermeldungen nur in der ausgabe stehen dann noch die MFG und mitten in der ausgabe steht
Code: (dl
)
1
2
use of uninitialized value in join or string at C:\blabla.pl line 18,<$fh> line 257.
use of uninitialized value in join or string at C:\blabla.pl line 21.
lg sabrina