Re^5: xml::twig delete element

This should do more or less what you want:

use strict;
use warnings;

use XML::Twig;

my %self2pnam; # Self => pnam for all color elements

my $twig=XML::Twig->new(                 # create self2pnam
                        twig_handlers=>{ color => sub { $self2pnam{$_-
+>att('Self')}= $_->att( 'pnam'); } },
                        pretty_print => 'indented',
                        );
$twig->parse(\*DATA);

# now we can process the content elements
foreach my $content ($twig->root->children( 'content'))
  { my $box= $content->prev_elt( 'box[@type="text"]');
    $content->set_tag( 'updated_tag')
            ->del_atts
            ->set_att( Color => $self2pnam{$box->att( 'frameColorID')}
+)
            ;
  }

$twig->print;


__DATA__
<document>
  <root>
  <box type="text" cont="text" textflowid="rc_u5035"  frameColorID="ua
+5"/>
  </root>
  <content type="text" Self="rc_u5035" id="rc_u5035"/>
  <header>h3</header>
  <meta>
  <color type="colr" clmd="prss" clsp="CMYK" clvl="4_D_0_D_15_D_50_D_0
+" ovrd="norm" atcs="nasp" atvl="0" pnam="Color 04-15M/50Y" edbl="t" r
+mbl="t" pvis="t" swID="1f01" Self="uce"/>
  <color type="colr" clmd="prss" clsp="CMYK" clvl="4_D_0_D_10_D_40_D_0
+" ovrd="norm" atcs="nasp" atvl="0" pnam="Color 05-10M/40Y" edbl="t" r
+mbl="t" pvis="t" swID="1f01" Self="ua5"/>
  </meta>
</document>
[download]

Comment on Re^5: xml::twig delete element Download Code

Replies are listed 'Best First'.
Re^6: xml::twig delete element by Selvakumar (Scribe) on Oct 14, 2009 at 06:49 UTC
Thanks for the reply mirod, Is it possible from my method to do like that. i need to get and update the same where i have commented. i need to do like this process a lot with "content" elements. so it would be better i should twig the content and from there i should get whatever i want instead seperate process. it will help me in understand the process also. Please help me.	[reply]
Re^7: xml::twig delete element by mirod (Canon) on Oct 14, 2009 at 10:21 UTC
It would be very similar: 1 pass to build the `%self2pnam` map, same as in the code above, except maybe adding a $_->purge at the end of the handler. The second pass would have a handler on `content` that would do exactly what's in the `foreach` loop. At this point, I believe you have all the elements to write the code yourself.	[reply] [d/l] [select]
Re^8: xml::twig delete element by Selvakumar (Scribe) on Oct 14, 2009 at 10:59 UTC
i tried but the hash value not passed to the content_handler. how can i do that? I have one more clarification regarding keep_atts_order. i am using keep_att_order=>1 in the twig_handler but it's not kept my all attributes in the same order which i have added like below `$content->set_atts({bid=>$bidvar, aid=>$aidvar, att=>'', pgnbr=>$pgnbr +var});` [download]	[reply] [d/l]