From wolfgang.banaston at gmail.com  Wed Jan 13 01:19:45 2016
From: wolfgang.banaston at gmail.com (WFB)
Date: Wed, 13 Jan 2016 10:19:45 +0100
Subject: [Linz-pm] =?utf-8?q?Perl6_und_regex=3A_Alles_au=C3=9Fer_=3C/messa?=
	=?utf-8?b?Z2U+?=
Message-ID: <CAGXvwmdNEN3BhsdtjBk683yCokJkdUC5Y8c0+SXA1gGSrEXdRg@mail.gmail.com>

Hallo, Leute!

Ich spiel mich immer noch mit perl6 rum, was soll ich sagen, es macht
einfach Spa?...

Gerade macht mir aber ein Problem zu schaffen, wieder mal Grammars:

use v6;

grammar message {
    token TOP { <tokenstart> <message> }
    token tokenstart { \<message\> }
    token message { .*? <.tokenend> }
    token tokenend { \<\/message\> }
}

my $rec = "<message>Ich bin eine Message</message><message>Ich bin eine
Message</message><message>Ich bin eine Message</message><message>Ich bin
eine Message</message><message>Ich bin eine Message</message><message>Ich
bin eine Message</message>";

while my $match = message.subparse($rec) {
    say ~$match<message>;
    $rec = $rec.subst($match, "");
}

Das funktioniert wie erwartet, allerdings ist <.tokenend> immer in
$/<message> dabei. obwohl ich irgendwo gelesen habe, dass der . bewirkt das
das nicht gespeichert wird. Gibt es einen anderen Weg das zu erreichen?
Gibt es vielleicht sowas wie <!tokenend>, damit alles au?er <tokenend>
gefunden wird?

Danke und Gr??e,
Wolf
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/linz-pm/attachments/20160113/1d3b1d7f/attachment.html>