Regular Expression: Ich suche mal wieder ein Regexp .... - #54461 (Allgemeines zu Perl)

Crian

2003-09-22 00:55

User since
2003-08-04
5866 Artikel
ModeratorIn

Vielleicht zur Verdeutlichung des Problems dieses Programm:

Code: (dl )

{
    my $text = "BrownWolf BrownWolf BrownWolf BrownWolf";
    my @fang = $text =~ s~(Brown)Wolf~~g;
    {local $"=', '; print "s: @fang\n"}
}

{
    my $text = "BrownWolf BrownWolf BrownWolf BrownWolf";
    my @fang = $text =~ m~(Brown)Wolf~g;
    {local $"=', '; print "m: @fang\n"}
}

Ausgabe:

Code: (dl )

1
2

s: 4
m: Brown, Brown, Brown, Brown

klarer?

und my ($var) = ... ist genau so ein Arraykontext wie my @arr = ...

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