Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: finding ancestor elements related to specific change

by Jenda (Abbot)
on Oct 19, 2012 at 09:48 UTC ( #999894=note: print w/ replies, xml ) Need Help??


in reply to finding ancestor elements related to specific change

Do you mean something like this?

#!/usr/bin/perl -slw use strict; use Data::Dump qw(dump pp); use XML::Rules; my $parser = XML::Rules->new( rules => { parameters => sub { return '+has_uint64' => ($_[1]->{type} eq 'uint64_t'); }, members => sub { my ($tag,$attr,$context,$parents) = @_; return unless $context->[-2] eq 'classes'; my $class = $parents->[-2]{name}; (my $access = $context->[-1]) =~ s/_methods//; print "$access $class.$attr->{name} has $attr->{has_uint64 +} uint64 parameter(s)\n" if ($attr->{has_uint64}); return; }, '^enums' => 'skip', } ); $parser->parse(\*DATA); __DATA__ <classes name="Panoply::BAR"> <public_methods> ...

Jenda
Enoch was right!
Enjoy the last years of Rome.


Comment on Re: finding ancestor elements related to specific change
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://999894]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2014-12-20 11:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (95 votes), past polls