Opened by Gast at 2005-05-04 14:27
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
[quote=renee,04.05.2005, 14:50]*) Du machst die Schleife über ein Element -> Schleife kann man weglassen
[/quote]
Ich denke, die Absicht dahinter ist, dass durch die Schleife im Schleifeninneren $_ auf die Variable $String verweist und deshalb ein entsprechender regulärer Ausdruck mit Substitution den Inhalt von $String ändert. In diesem Fall ist die Schleife also nicht egal. Man könnte aber auch direkt "$String =~" hinschreiben und dafür die Schleife weglassen.
Du musst allerdings Perl noch sagen, dass es sich bei dem Inhalt von $regexstring um einen regulären Ausdruck handelt.
Angenommen in $regenxstring steht sowas wie 's~a~b~g', musst Du diesen z.B. als eval ausführen.
Ausgabe:
\n\n
<!--EDIT|Crian|1115213941-->
[/quote]
Ich denke, die Absicht dahinter ist, dass durch die Schleife im Schleifeninneren $_ auf die Variable $String verweist und deshalb ein entsprechender regulärer Ausdruck mit Substitution den Inhalt von $String ändert. In diesem Fall ist die Schleife also nicht egal. Man könnte aber auch direkt "$String =~" hinschreiben und dafür die Schleife weglassen.
Du musst allerdings Perl noch sagen, dass es sich bei dem Inhalt von $regexstring um einen regulären Ausdruck handelt.
Angenommen in $regenxstring steht sowas wie 's~a~b~g', musst Du diesen z.B. als eval ausführen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#! /usr/bin/perl
use strict;
use warnings;
my $re = 's~a~b~g';
my $test = 'abcabcabc';
for ($test) {
eval "$re";
}
print $test;
Ausgabe:
Code: (dl
)
bbcbbcbbc
<!--EDIT|Crian|1115213941-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite