Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Regular expression for a comma separated string

by CountZero (Bishop)
on Nov 25, 2014 at 10:14 UTC ( #1108333=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl '2014';
use Algorithm::Permute;

...
        say $test=~ /$regex/ ? 'Accept' : 'Reject';
    }
}
  2. or download this
    Testing
A    Accept
C    Accept
...
CAGA    Reject
ACGA    Reject
(...)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1108333]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (1)
As of 2023-10-05 00:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found
    Notices?