Re: How on earth do I use this script

in reply to How on earth do I use this script

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]

Comment on Re: How on earth do I use this script Select or Download Code

Replies are listed 'Best First'.
Re^2: How on earth do I use this script by diamondsandperls (Beadle) on Sep 27, 2012 at 22:21 UTC
thanks got it to go	[reply]

In Section Seekers of Perl Wisdom