I will be adding this to the FAQ shortly, but thought I would mention
how excellent Data::Match

   http://search.cpan.org/~kstephens/Data-Match-0.06/Match.pm

has been for my work.


So, I have these deeply nested parse trees thanks to my use of an
Autoaction: 
  $::RD_AUTOACTION = q { [EMAIL PROTECTED] } ; 

I first inquired about various tools for spelunking in such trees:
  http://perlmonks.org/?node_id=646560

And am very happy so far with Data::Match. Here is a sample parse tree
from my parse:


$VAR1 = [
          'simple_house',
          [
            'pre_simple',
            [
              'geoloc',
              [
                'geoloc_',
                [
                  'place',
                  [
                    'city',
                    'taipei'
                  ]
                ]
              ]
            ]
          ],
          [
            'house',
            'house'
          ],
          []
        ];

Now, my goal is to get at the inner-most array in $VAR1->[1]:

    [
                    'city',
                    'taipei'
    ]


And with Data::Match, I can do so in a very definitional fashion:

 my $match = match
    (
     # The parse tree
     $self->{parse_result}[1], 
 
     # The Data::Match pattern match template
     FIND ( 
           COLLECT (
                    'x',
                    [ 
                     EXPR(q{! ref}),
                     EXPR(q{! ref})


                    ]
                    )
           )
    );

The pattern is basically saying: "match an array ref consisting of 2
elements where each element is not an reference of any sort". Since
the strings 'city' and 'taipei' both fulfill that criterion that is
what matches.

--
Terrence Brannon - SID W049945
614-213-2475 (office)
614-213-3426 (fax)
818-359-0893 (cell)



-----------------------------------------
This communication is for informational purposes only. It is not
intended as an offer or solicitation for the purchase or sale of
any financial instrument or as an official confirmation of any
transaction. All market prices, data and other information are not
warranted as to completeness or accuracy and are subject to change
without notice. Any comments or statements made herein do not
necessarily reflect those of JPMorgan Chase & Co., its subsidiaries
and affiliates.

This transmission may contain information that is privileged,
confidential, legally privileged, and/or exempt from disclosure
under applicable law. If you are not the intended recipient, you
are hereby notified that any disclosure, copying, distribution, or
use of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED. Although this transmission and any
attachments are believed to be free of any virus or other defect
that might affect any computer system into which it is received and
opened, it is the responsibility of the recipient to ensure that it
is virus free and no responsibility is accepted by JPMorgan Chase &
Co., its subsidiaries and affiliates, as applicable, for any loss
or damage arising in any way from its use. If you received this
transmission in error, please immediately contact the sender and
destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.

Please refer to http://www.jpmorgan.com/pages/disclosures for
disclosures relating to UK legal entities.

Reply via email to