Hallo betterworld, hallo pq,

2009-05-11T14:45:07 betterworld

Vielleicht ungefähr so (ungetestet):

Code (perl): (dl )

1
2
3

my $line = "P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,";

my @comps = $line =~ m{\w+::\w+=(?:[^,]|,\d)*}g;

Dabei soll der Teil (?:[^,]|,\d) auf alle Zeichen, die kein Komma sind, oder auf Kommas, denen eine Ziffer nachsteht, matchen.

WOW! Es funktioniert! Ich habe auch versucht Dein regexp mit verschiedenen Sätzen auszutricksen und... es ist mir NICHT gelungen! :-D

EDIT: Das einzige, was ich noch verändern müsste ist \w+ gegen .*, damit ich auch im Namen des Präfixes und Variablen unabhängig bin, da dort z.B. mit "-" gerechnet werden muss. Ne Idee wie das geht?

Vielen Dank!
Toby, der sich demnächst wieder verstärkt reguläre Ausdrücke anschauen wird.
Last edited: 2009-05-11 17:19:58 +0200 (CEST)