Ok, thanks to 7studs example I have had some success with this version of the parser.

###################################################################
use strict;
use warnings; 

$::RD_HINT=1;
use Data::Dumper;
#use autodie;

use Parse::RecDescent;

my $grammar =<<'END_OF_GRAMMAR';

    #Start up action(executed in parser namespace):
    { 
        use Data::Dumper;
    }

    startrule: expr
              { 
                  print "startrule:";
                  print Dumper(\@item);
                  $return = \@item;
              }

    expr: operand(s)
               {
                   print "expr rule:";
                   print Dumper(\@item);
                   my $result = $item[1];
                   print 'Inside expr rule: $result=';
                   print Dumper($result);
                   $return = $result;
               }

     operand: /and|or/i
               { 
                   print "operand and/or:";
                   print Dumper(\@item);
                   $return = lc($item[1]);
               }

     operand: /not/i 
               { 
                   print "operand not:";
                   print Dumper(\@item);
                   $return = [lc($item[1])];
               }

     operand: '(' expr ')'
               { 
                   print "operand rule:";
                   print Dumper(\@item);
                   $return = $item[2];
               }
           | term { $item[1] }

     term: /[\w\s=><\/:"'\*_]+/


END_OF_GRAMMAR

my $input = "(cvtype='problem') and ((problem_description match '*') a
+nd (((problem_synopsis match 'FCSIM') or (problem_synopsis match 'ATT
+E')) OR not ((create_time>time('06/01/2014 0:00:00')) and (create_tim
+e<time('09/30/2014 0:00:00')))))";
#my $input = "(cvtype='problem') OR not (problem_description match '*'
+)";
print "Text: $input\n";

my $parser = Parse::RecDescent->new($grammar);
my $result = $parser->startrule($input) or die "Could Not Parse!\n";

print "\n\nresult:";
print Dumper $result;
[download]

The results look almost exactly like what I was hoping for:

result:$VAR1 = [
          'startrule',
          [
            [
              'cvtype=\'problem\''
            ],
            'and',
            [
              [
                'problem_description match \'*\''
              ],
              'and',
              [
                [
                  [
                    'problem_synopsis match \'FCSIM\''
                  ],
                  'or',
                  [
                    'problem_synopsis match \'ATTE\''
                  ]
                ],
                'or',
                'not',
                [
                  [
                    'create_time>time',
                    [
                      '\'06/01/2014 0:00:00\''
                    ]
                  ],
                  'and',
                  [
                    'create_time<time',
                    [
                      '\'09/30/2014 0:00:00\''
                    ]
                  ]
                ]
              ]
            ]
          ],
          $VAR1
        ];
[download]

My only complaint is that 'not' and 'and/or' are on the same level. I really want 'not' to be of higher precedence than 'and/or'. Hopefully making the output look like this:

result:$VAR1 = [
          'startrule',
          [
            [
              'cvtype=\'problem\''
            ],
            'and',
            [
              [
                'problem_description match \'*\''
              ],
              'and',
              [
                [
                  [
                    'problem_synopsis match \'FCSIM\''
                  ],
                  'or',
                  [
                    'problem_synopsis match \'ATTE\''
                  ]
                ],
                'or',
                [
                  [
                  'not',
                  ]
                    [
                      [
                        'create_time>time',
                        [
                          '\'06/01/2014 0:00:00\''
                        ]
                      ],
                      'and',
                      [
                        'create_time<time',
                        [
                          '\'09/30/2014 0:00:00\''
                        ]
                      ]
                    ]
                  ]
                ]
              $VAR1
          ];
[download]

I have tried to make a callback to expr. But that cuts the run short. Any help I can get would be greatly appreciated.

DevM

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.