#!/usr/bin/perl --

use strict;
use warnings;


## 2009-09-17- 23:40:30
## D:\dev\misc\search.queryparser.pl

use Search::QueryParser;
my $qp = Search::QueryParser->new;
my $s = q[dogs OR cats OR "flying fish" OR (shrimp AND squid)];
my $query = $qp->parse($s)  or die "Error in query : " . $qp->err;

use Data::Dumper;
print Dumper( $query ),"\n";
__END__
$VAR1 = {
          '' => [
                  {
                    'value' => 'dogs',
                    'op' => ':',
                    'field' => ''
                  },
                  {
                    'value' => 'cats',
                    'op' => ':',
                    'field' => ''
                  },
                  {
                    'quote' => '"',
                    'value' => 'flying fish',
                    'op' => ':',
                    'field' => ''
                  },
                  {
                    'value' => {
                                 '+' => [
                                          {
                                            'value' => 'shrimp',
                                            'op' => ':',
                                            'field' => ''
                                          },
                                          {
                                            'value' => 'squid',
                                            'op' => ':',
                                            'field' => ''
                                          }
                                        ]
                               },
                    'op' => '()',
                    'field' => ''
                  }
                ]
        };
[download]