Regular expression to match query


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Regular expression to match query

by ghosh123 (Scribe)

on Sep 04, 2012 at 17:02 UTC ( #991656=perlquestion: print w/ replies, xml )

Need Help??

ghosh123 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monk,
I have a query string whose possible values could be $str1 and $str2. The requirement is I have to enclose the value after like/not like clause by %.
Problem is $str1 is working but not $str2
Please help me with a regular expression which will match both $str1 and $str2

my $str1 = "(View like all data) AND (Path not like /usr/bin)"; # work
+ing 

my $str2 = "(View like all data AND Path not like /usr/bin)";
 # not working
while ($str1 =~ /\(\s*[\W\w]+?(like|not like)\s+([^%][\w\W][^%]+?)\s*\
+)/)
{
    my $new = "%".$2."%";
    $str =~ s/$2/$new/;
}

[download]

N.B: 'Path' and 'View' can not be hardcoded in the regex as they might be anything in my $str1 and $atr2,like 'Project', 'site' etc.
In both cases the final string should be :
$str1 = "(View like all %data%) AND (Path not like %/usr/bin%)"
$str2 = "(View like all %data% AND Path not like %/usr/bin%)"
Thanks .

Comment on Regular expression to match query
Download Code

Re: Regular expression to match query
by Kenosis (Deacon) on Sep 04, 2012 at 18:13 UTC

Perhaps the following will work for you:

use Modern::Perl;

my @strs = (
    '(View like all data) AND (Path not like /usr/bin)',
    '(View like all data AND Path not like /usr/bin)'
);

for (@strs) {
    s/all\s+([^)]+)(\)?\s+AND.+like\s+)([^)]+)/all %$1%$2%$3%/;
    say;
}
[download]

Output:

(View like all %data%) AND (Path not like %/usr/bin%)
(View like all %data% AND Path not like %/usr/bin%)
[download]

Hope this helps!

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom

Node Status^?

node history
Node Type: perlquestion [id://991656]
Approved by johngg
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (9)

As of 2013-05-22 01:58 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (453 votes), past polls