Opened by DemoFreak at 2003-09-17 21:12
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=Dubu,18.09.2003, 19:46]Doch, muss man.
Sie werden nur dann geloescht, wenn die Regex als ganzes erfolgreich war!
Ansonsten behalten sie ihren Wert (s. pqs Beispiel).[/quote]
ok, dann verbessere ich zu
besser?
Sie werden nur dann geloescht, wenn die Regex als ganzes erfolgreich war!
Ansonsten behalten sie ihren Wert (s. pqs Beispiel).[/quote]
ok, dann verbessere ich zu
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use strict;
my $str1 = 'Dies ist ein Text';
if ($str1 =~ m/^.*(ist).*(Tex).*/) {
print "1 : '$1', 2: '$2'\n";
}
if ($str1 =~ m/^.*(ein).*/) {
print "1 : '$1', 2: '$2'\n";
}
besser?
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