DCONWAY / Regexp-Grammars-1.014 / demo / demo_require.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
use v5.10;
use warnings;
use Regexp::Grammars;
my $parser = qr{
    <debug:match>
    <Try>
    <rule: Try>
        <Word= (\w+)>
        <Middle=(\w+?)>
        <Suffix= (-fu)>
        <require: (?{ $MATCH{Word} eq 'your' })>
}xms;
while (<>) {
    say 'matched' if /$parser/;
}