Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: capture value from two patterns

by jo37 (Deacon)
on Aug 20, 2020 at 20:20 UTC ( [id://11120940]=note: print w/replies, xml ) Need Help??


in reply to 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

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

Greetings,
-jo

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

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
    (Of course, this still works post-5.10!)


    Give a man a fish:  <%-{-{-{-<

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...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11120940]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (7)
As of 2024-03-28 21:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found