#!/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' => '' } ] };
In reply to Re: Break string into array
by Anonymous Monk
in thread Break string into array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |