#! /usr/bin/perl -w

use strict;
use warnings;
use XML::Twig;

my $filtername = 'Advanced Perl Programming';
my $books_tree= new XML::Twig();

$books_tree->parsefile('books.xml');

my @title = $books_tree->get_xpath(qq[//Title[\@Name="$filtername"]]);
$_->set_att(Name => 'Advanced Perl') for @title;

$books_tree->print();
[download]

Step 1 - XPaths are strings, not perl data structures. Step 2 - I'm not too familiar with twig roots, so I load the entire data structure into memory, play with it, then print it back out. If you have a huge data structure that you want to stream, then we can start from here and move it back into twig roots that can parse/modify/output in a single statement, streaming and purging as you go.

Hope that helps.

use strict;
use XML::Twig;

my $parser = new XML::Twig(
    twig_print_outside_roots => 1,
    twig_roots               => {
        'Title[@Name="Advanced Perl Programming"]' =>
            sub {
                my ( $tree, $element ) = @_;
                $element->set_att( Name => 'Advanced Perl' );
                $element->print;
            }
    }
);

$parser->parse_file('books.xml');
[download]

Thank you! This code works.

I tried to make use of the example code that you provided. It works! I am stuck when I try to enhance it to deal with two XML files. Please help!
I have the following two XML files.

books.xml

<Books>
   <Titles Mode="List">
    <Title Name="Programming Perl"/>
    <Title Name="Advanced Perl Programming"/>
    <Title Name="Learning Perl on Win32 Systems"/>
   </Titles>
</Books>
[download]

filter.xml

<Filters>
   <Titles>
    <Title Name="Programming Perl"/>
    <Title Name="Advanced Perl Programming"/>
    <Title Name="Learning Perl on Win32 Systems"/>
   </Titles>
</Filters>
[download]

I am trying to do the following using the code below.
1. Change the 'Title Name' in 'books.xml' by appending the existing 'Title Name' with some random number.
2. Change the corresponding 'Title Name' in 'filter.xml'
Read more... (2 kB)
Now the problem is I am able to correctly parse the items. But at at the end when I print the 'books_tree - twig' only the Title name 'Learning Perl on Win32 Systems' reflects the changes. Everything else is same as the original books.xml file.

Please tell me how to fix this?

What do you intend {Title[@Name= "$filtername"] => 1} to do? @Name is an array, but it does not appear in the code fragment except here. I suspect it is not declared anywhere, and doesn't seem to make sense here in any case.

I am specifying 'attribute_condition' as it is specified in the XML::Twig document.


tag[@att="val"]
[download]

?? Is my understanding about the usage is wrong?

I can't make a lot of sense of the documentation either. However the following code may help:

use warnings;
use strict;
use XML::Twig;

my $filtername = 'Advanced Perl Programming';
my $books_tree= new XML::Twig(twig_roots => {Title => \&FixName});

$books_tree->parse(join "", <DATA>);
#$books_tree->set_att(Name => 'Advanced Perl');

sub FixName
{
my ($p1, $p2) = @_;
my %node = %$p2;
print $node{"att"}{"Name"}."\n";
}
[download]

Read more... Data and output (560 Bytes)

---

Perl is Huffman encoded by design.

You need to quote strings, see perlintro