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
hab jetzt also sowas da stehen wenn ich alles richtig verstanden habe:
stimmt vielleicht mein print doch nicht? und fuer was steht go ich kenne nur goto!
edit das plus sorg dafuer das egal wieviele leerzeichen da stehen es nur ein ";"gibt!?\n\n
<!--EDIT|sabrina|1159196206-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
while (my $line = <$fh>){
chomp $line;
$line =~s/\s+/;/g;
push(@lines, line =~s:\b(MFG|DOME/GT|OG)\b::go);
}
print @lines;
close $fh or die $!;
open(my $w_fh,'>',$fest or die $!;
print $w_fh @lines;
close $w_fh or die $!;stimmt vielleicht mein print doch nicht? und fuer was steht go ich kenne nur goto!
edit das plus sorg dafuer das egal wieviele leerzeichen da stehen es nur ein ";"gibt!?\n\n
<!--EDIT|sabrina|1159196206-->