Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: capture value from two patterns

by AnomalousMonk (Bishop)
on Aug 20, 2020 at 23:08 UTC ( #11120945=note: print w/replies, xml ) Need Help??


in reply to Re: capture value from two patterns
in thread capture value from two patterns

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:  <%-{-{-{-<

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2020-10-23 10:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (237 votes). Check out past polls.

    Notices?