in reply to Building a boolean search engine

split and join to the rescue: 

my $string = "huckabee AND jfkadlsfj  fdsfldfj06329 OR reagan AND bide
+n AND clinton OR sebelius OR mccain";

my @chunks = split / AND /, $string;
@chunks = map { /OR/ ? "($_)" : $_ } @chunks;
print join(' AND ', @chunks), "\n";
__END__
huckabee AND (jfkadlsfj  fdsfldfj06329 OR reagan) AND biden AND (clint
+on OR sebelius OR mccain)

[download]

Replies are listed 'Best First'.
Re^2: Building a boolean search engine
by AnomalousMonk (Archbishop) on Aug 13, 2009 at 00:55 UTC 
    >perl -wMstrict -le
"print '------ output ------';
 my $s = shift;
 print $s;
 my @chunks = split / AND /, $s;
 @chunks = map { /OR/ ? qq{($_)} : $_ } @chunks;
 print join ' AND ', @chunks;
"
"huckabee AND jfkadlsfj fdsfldfj06329 OR reagan AND OReilly AND clinto
+n OR sebelius OR mccain"
------ output ------
huckabee AND jfkadlsfj fdsfldfj06329 OR reagan AND OReilly AND clinton
+ OR sebelius OR mccain
huckabee AND (jfkadlsfj fdsfldfj06329 OR reagan) AND (OReilly) AND (cl
+inton OR sebelius OR mccain)

    [download]
    (Note the  '... AND (OReilly) AND ...' mis-conversion.)
    (Sorry for the line wrap!)

    A slight improvement that avoids confusion with embedded  'OR' substrings (also is tolerant of variable whitespace around the  'AND' connective, putting back just what it finds): 

    >perl -wMstrict -le
"print '------ output ------';
 my $s = shift;
 print $s;
 my @chunks = split m{ (\s+ AND \s+) }xms, $s;
 @chunks = map { m{ \b OR \b }xms ? qq{($_)} : $_ } @chunks;
 print join '', @chunks;
"
"huckabee AND jfkadlsfj fdsfldfj06329 OR reagan AND OReilly  AND   cli
+nton OR sebelius OR mccain"
------ output ------
huckabee AND jfkadlsfj fdsfldfj06329 OR reagan AND OReilly  AND   clin
+ton OR sebelius OR mccain
huckabee AND (jfkadlsfj fdsfldfj06329 OR reagan) AND OReilly  AND   (c
+linton OR sebelius OR mccain)

    [download]
[reply]
[d/l]
[select]
Re^2: Building a boolean search engine
by Anonymous Monk on Aug 12, 2009 at 22:28 UTC
    Excellent. Thank you!
[reply]

In Section Seekers of Perl Wisdom