Opened by sabrina at 2006-09-25 13:22
User since
2005-09-08
300 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-09-08
300 Artikel
BenutzerIn
@sabrina
Versuch's mal damit (denn mein drittes Beispiel klappt so nicht, wie ich es gepostet hatte):
Das "go" ist ein "g" und ein "o". Gas "g" kennst Du, und das "o" sagt Perl, daß es den RegEx nur einmal kompilieren soll, anstatt bei jedem Schleifendurchlauf. Das spart Zeit und macht Sinn, weil sich Dein RegEx ja nicht verändert.
Gruß, Doc\n\n
<!--EDIT|docsnyder|1159197402-->
Versuch's mal damit (denn mein drittes Beispiel klappt so nicht, wie ich es gepostet hatte):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
while (my $line = <$fh>){
chomp $line;
$line =~ s/\s+/;/g;
$line =~ s:\b(MFG|DOME/GT|OG)\b::go;
push(@lines, $line);
}
print @lines;
close $fh or die $!;
open(my $w_fh, '>', $fest) or die $!;
print $w_fh @lines;
close $w_fh or die $!;Das "go" ist ein "g" und ein "o". Gas "g" kennst Du, und das "o" sagt Perl, daß es den RegEx nur einmal kompilieren soll, anstatt bei jedem Schleifendurchlauf. Das spart Zeit und macht Sinn, weil sich Dein RegEx ja nicht verändert.
Gruß, Doc\n\n
<!--EDIT|docsnyder|1159197402-->