jccunning has asked for the wisdom of the Perl Monks concerning the following question:
XML file:#!/usr/bin/perl -- use strict; use warnings; use XML::Twig; use Data::Dump qw' dd '; Main( @ARGV ); exit (0); sub Main { my %files; my $filename; my $subprint = sub { my( $twig, $_ ) = @_; push @{ $files{ $filename }}, $_->sprint; return; }; my $twig = XML::Twig->new( ignore_elts => { brief => 'discard', detailed => 'discard' }, pretty_print => 'indented', TwigHandlers => { 'myroot/classes' => $subprint, }, ); for my $file( @_ ) { $filename = $file; eval { $twig->parsefile( $file ); 1; } or warn "ERROR parsefile($file): $@ "; $twig->purge; } dd \%files; }
<?xml version='1.0' standalone='yes'?> <myroot> <classes name="SomeClass::AccessLogic"> <public_typedefs> <members name="Ptr" kind="typedef" type="boost::shared_ptr< + BAR >" virtualness="non_virtual"> <brief></brief> <detailed></detailed> </members> </public_typedefs> </classes> </myroot>
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: XML Twig sprint output not preserving > entity
by Mr. Muskrat (Canon) on Aug 22, 2012 at 19:41 UTC |