Re: capture value from two patterns

You may use the "branch reset" pattern:

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

for (qw(/key/123 /123-456)) {
    my ($id) = m!(?|/key/(\d+)|/(\d+)-\d+)!;
    say $id;
}
__DATA__
123
123
[download]

EDIT: Added the missing leading slash in the second branch.

Greetings,
-jo

$gryYup$d0ylprbpriprrYpkJl2xyl~rzg??P~5lp2hyl0p$

Comment on Re: capture value from two patterns Download Code

Replies are listed 'Best First'.
Re^2: capture value from two patterns by AnomalousMonk (Archbishop) on Aug 20, 2020 at 23:08 UTC
The branch reset operator is a regex pattern extension added with Perl version 5.10. For those of you still clomping around in the pre-5.10 Stone Age, here's an old-school alternative: `c:\@Work\Perl\monks>perl -wMstrict -le "for my $s (qw(/key/42 /key/ /24-99 /24- /24 /key/42-99)) { my $parsed = my ($id) = grep defined, $s =~ m{ \A (?: /key/ (\d+) \| / (\d+) - \d+) \z }xms; ;; print qq{'$s' -> }, $parsed ? qq{'$id'} : 'no id'; } " '/key/42' -> '42' '/key/' -> no id '/24-99' -> '24' '/24-' -> no id '/24' -> no id '/key/42-99' -> no id` [download] (Of course, this still works post-5.10!) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^2: capture value from two patterns by vitoco (Hermit) on Aug 20, 2020 at 20:36 UTC
You may use the "branch reset" pattern: Thanks! It works exactly as I wanted to...	[reply]