How to seperate words?

[Archanak]

Hi all,

I have a query like this:-

((A AND B) NOT (C AND D) AND (N OR M) NOT (E AND F))

I want to store
((A AND B) AND (N OR M)) in one array.

(C AND D) NOT (E AND F) in other array.

means NOT terms in one array other terms in other array in perl.

How do i do that?

pls help me.

with regards
Archana

[KevinADC]

I am totally confused by your question. Have you tried any code yet we can look at?

[Archanak]

basically the query is like this :-
((A AND B) NOT (C AND D) AND (E OR F) NOT (N AND M))

i want to separate the terms i.e

(A AND B) AND (E OR F) something like rearrangement without NOT terms.

and NOT terms in separate array.

finally my output:-
a)(A AND B) AND (E OR F)
b)(C AND D) NOT (N AND M)

more specifically NOT terms in one array and other terms in other array.

[KevinADC]

how do you know (A AND B) belongs in the AND group? There is no AND or NOT in front of it. Have you tried any code yet we can look at? (he asks for the second time).

[numberwhun]

basically the query is like this :-
((A AND B) NOT (C AND D) AND (E OR F) NOT (N AND M))

i want to separate the terms i.e

(A AND B) AND (E OR F) something like rearrangement without NOT terms.

and NOT terms in separate array.

finally my output:-
a)(A AND B) AND (E OR F)
b)(C AND D) NOT (N AND M)

more specifically NOT terms in one array and other terms in other array.

Archanak,

I have to agree with Kevin 100%. You really need to post the code that you have tried thus far so that we can help you troubleshoot it. We won't write your script, but will certainly troubleshoot it with you so you can learn.

Regards,

Jeff

[Archanak]

how do you know (A AND B) belongs in the AND group? There is no AND or NOT in front of it. Have you tried any code yet we can look at? (he asks for the second time).

Hi Kevin,

suppose my query is like this:-
((A AND B) NOT (C AND D) AND (M AND N) NOT (P OR Q))

i tried like this:-

if($query=~/(.*)\sNOT\s\(([^()]+)\)(.*)/g)
{
        $key=$1;
        $sec=$2;
        $third=$3;
        print "<br>first =$key<br>";
        print "<br>second=$sec<br>";
        print "<br>third=$third<br>";
        $final=$key."".$third;
        print "<br>****final value=$final<br>";
        if($final=~/(.*)\sNOT\s\(([^()]+)\)(.*)/)
        {
                $term=$1;
                $sterm=$2;
                $lterm=$3;
                print "< br>TERM=**************$1**<br>";
                print "<br>STERM=******$2<br>";
                print "<br>LTERM=*****$3<br>";
    }
}
 

i.e first i have used regular expression to filter NOT terms

i have stored the terms in $1, $2& $3
and check again if it has NOT terms then again store $1,$2....

But if many NOT terms this will not work.

[numberwhun]

Archanak,

I have edited your post and corrected it for top posting. Please do not put your replies above the quoted text, otherwise

flow.
natural
conversations
the
follow
easily
wont
we

Regards,

Jeff

[KevinADC]

Hi Kevin,

suppose my query is like this:-
((A AND B) NOT (C AND D) AND (M AND N) NOT (P OR Q))


But if many NOT terms this will not work.

You need to create a list of the pattern matches. Generally you can do that by returning the value of a regexp to an array and use the "g" option with your regexp.


@list = $foo =~ /(pattern)/g;

[Archanak]

You need to create a list of the pattern matches. Generally you can do that by returning the value of a regexp to an array and use the "g" option with your regexp.


@list = $foo =~ /(pattern)/g;

Hi kevin,

can u explain more about how to implement?

with regards

[KevinADC]

my $string = '((A AND B) NOT (C AND D) AND (E OR F) NOT (N AND M))';
my @not = $string =~ /NOT (\(\w AND \w\))/g;