Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mageia > 7 > armv7hl > media > core-release > by-pkgid > 305b1dc429d7c74acab1cbc991003ded > files > 33

perl-Regexp-Grammars-1.49.0-1.mga7.noarch.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

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/;
}