diamondsandperls has asked for the wisdom of the Perl Monks concerning the following question:

Once upon a time I used the script provided at the below link for parsing xml to something easier in order to pull out refs. I did not save my command line syntax and for whatever reason or another I can no longer get this to work properly. Any help is appreciated.

Re: easy way of parsing XML

Replies are listed 'Best First'.
Re: How on earth do I use this script
by remiah (Hermit) on Sep 27, 2012 at 22:00 UTC

    Hello.

    I tried this but I saw this script works just fine. How do you invoke the program? I did like this. 

    perl this_pg.pl target.xml SOMETHING 1

    [download]
    With XML::Twig, similar things would go like this. 
    use strict;use warnings;
use XML::Twig;
my $xmlfile=$ARGV[0];
my $values_flag=$ARGV[0] || 0;

my $twig =XML::Twig->new( 
    twig_handlers => {'//*' => sub {
            my($twig,$elt)=@_;
            if ( $elt->descendants == 1 ){
                print $elt->path;
                print " := " . $elt->first_child_text if ( $values_fla
+g );    
                print "\n";
            }
        }
    }, 
)->parsefile($xmlfile);

    [download]

[reply]
[d/l]
[select]
      thanks got it to go
[reply]

Back to Seekers of Perl Wisdom