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

Re: Reg Ex exercise

by choroba (Abbot)
on Dec 05, 2012 at 16:28 UTC ( #1007323=note: print w/ replies, xml ) Need Help??


in reply to Reg Ex exercise

| stands for "or" only inside a regular expression. Outside, you have to use || or or. The vertical bar alone is a "bitwise or", see perlop. No "or" is needed, though:

#!/usr/bin/perl use warnings; use strict; use Test::More; my $r = qr/^-? # Can start with a minus. (:? # Non capturing group. [0-9]+ # Digits. Does not match Unicode digits as \d + does. (?: # Another group, this one will be optional. \. # The dot. Backslashed to lose its special me +aning. [0-9]+ # Digits again. )? # End of the inner group, the ? makes it opti +onal. ) # End of the outer group. $ # And nothing more. /x; like ($_, $r) for qw/ 4 -7 0.656 -67.35555 /; unlike($_, $r) for qw/ 5. 56F .32 -.04 /; done_testing();
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re: Reg Ex exercise
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-08-22 00:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (144 votes), past polls