regex question - dynamically address captures

nmerriweather has asked for the wisdom of the Perl Monks concerning the following question:

i'm trying to abstract some regexes for a dispatch routine as such:

my %patterns = 
{
    {
        'regex'     => qr/^\/section\/([\d]{1,8})[\/]?$/,
        'function'     => 'do__section',
        'id_fields' => ['section_id']
    }
}
[download]

i can match fine, but my issue is this:
i'd like to loop through @{$patterns{'id_fields'}} , and call an object with a dictionary of the arguments

something like:

    my     @fields = @{$$regex_set{'id_fields'}};
    unshift @fields, '';
    my %args;
    for ( my $i=1; $i<=$#fields ; $i++ )    
    {
        $args{$fields[$i]} = $$i;
    }
[download]

unfortunately, $$i doesn't work (which would be $1)
i need some method of addressing $1,$2 dynamically - can anyone offer a suggestion>

Comment on regex question - dynamically address captures Select or Download Code

Replies are listed 'Best First'.
Re: regex question - dynamically address captures by GrandFather (Saint) on Feb 21, 2006 at 23:00 UTC
The following may be what you want. Note the `@captures = map...` line in particular. use warnings; use strict; use Data::Dump::Streamer; my %patterns = ( pattern1 => { 'regex' => qr'^/section/([\d]{1,8})/?$', 'function' => 'do__section', 'id_fields' => ['section_id'] }, pattern2 => { 'regex' => qr'^/para/([\d]{1,8})/?$', 'function' => 'do__para', 'id_fields' => ['para_id'] } ); my @lines = ('/section/123', '/para/256'); for my $line (@lines) { for my $key (keys %patterns) { next if $line !~ /$patterns{$key}->{regex}/; my @captures = map {substr $line, $-[$_], $+[$_] - $-[$_] + 1} 1.. +$#-; my %args; @args{@{$patterns{$key}->{'id_fields'}}} = @captures; print "Dump for $key:\n"; Dump (\%args); } } [download] Prints: `Dump for pattern1: $HASH1 = { section_id => 123 }; Dump for pattern2: $HASH1 = { para_id => 256 };` [download] DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^2: regex question - dynamically address captures by ikegami (Patriarch) on Feb 21, 2006 at 23:15 UTC
Nice, but you should replace `next if $line !~ /$patterns{$key}->{regex}/; my @captures = map {substr $line, $-[$_], $+[$_] - $-[$_] + 1} 1..$#-;` [download] with the much simpler `my @captures = $line =~ /$patterns{$key}->{regex}/ or next;` [download]	[reply] [d/l] [select]
Re^3: regex question - dynamically address captures by GrandFather (Saint) on Feb 21, 2006 at 23:22 UTC
Argh. I had the equivelent of that first off, but I'd used 1 for the section and para numbers so @captures contained a single element with the value 1 and I convinced myself that it was the match count. Candidate for OT: most egregious programming error, ever maybe? :) DWIM is Perl's answer to Gödel	[reply]
Re^4: regex question - dynamically address captures by ikegami (Patriarch) on Feb 21, 2006 at 23:28 UTC
Re^3: regex question - dynamically address captures by nmerriweather (Friar) on Feb 21, 2006 at 23:23 UTC
a_ AWESOME. thank you both. b_ the +1 on the substr should be cut.	[reply]
Re^4: regex question - dynamically address captures by jkeenan1 (Deacon) on Jul 19, 2006 at 03:15 UTC
Re^5: regex question - dynamically address captures by ikegami (Patriarch) on Jul 19, 2006 at 04:57 UTC
Some notes below your chosen depth have not been shown here
Re^3: regex question - dynamically address captures by jkeenan1 (Deacon) on Jul 09, 2006 at 00:54 UTC
Your response and Grandfather's have solved an important problem for me on my day job. Thank you, fellow monks! Jim Keenan	[reply]