File: demo_require.pl

package info (click to toggle)
libregexp-grammars-perl 1.058-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,328 kB
  • sloc: perl: 53,328; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 284 bytes parent folder | download | duplicates (7) 
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/;
}