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

Re: qr// and user provided regex patterns...

by toolic (Bishop)
on Jul 30, 2009 at 13:09 UTC ( #784600=note: print w/replies, xml ) Need Help??

in reply to qr// and user provided regex patterns...

ikegami provided a solution to your direct question.

An alternate approach that I usually employ is to provide another command-line option for a case-sensitive match.

my $pattern = ($options{i}) ? qr/$options{c}/i : qr/$options{c}/;

The following does a case-sensitive match:

regexTester -c 'Bill Clinton'

The following does a case-insensitive match:

regexTester -i -c 'Bill Clinton'

See Finding commands in Unix PATH for a complete example with POD instructions.

Replies are listed 'Best First'.
Re^2: qr// and user provided regex patterns...
by misterMatt (Novice) on Jul 31, 2009 at 06:54 UTC
    Is there a graceful way to do this with a any combination of 3 flags?
      What is a any combination of 3 flags?
        i, m, s and x

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://784600]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2018-06-22 17:32 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.