in reply to Re: xml::twig delete element
in thread xml::twig delete element

Thanks a lot. it's works fine. i have one more clarification. I am using the below code to find "$fcnvar" not equal to blank then i need to search '//color@self="ua5"' and i should get the attribute "pnam" of that "color" element. how can i do that. can you please suggest. i am struggling here. I am getting error where i have commented the code. 

sub content_handler
{
  my ($twig, $content)= @_;
    if($content->{'att'}->{'type'} eq "text")
    {
      my $selfatt=$content->att_xml_string('Self');
      my $expr='//box[@textflowid="'.$selfatt.'"][@type="text"]';
        my @tagnames = $twig->get_xpath($expr);
      for my $temp (@tagnames)
          {
              $fcnvar=$temp->att_xml_string('frameColorID');
#          print "#$fcnvar#";
#          if (!($fcnvar eq "")){
#          my $expr='//color[@self="ua5"]';
#          print "$expr";
#          my @colorvalarr = $twig->get_xpath($expr);
#          print @colorvalarr;
#          print $colorvalarr[0];
#          $fcnvar=$colorvalarr[0]->att_xml_string('pnam');
#          }

          }
         }
    }

[download]

Replies are listed 'Best First'.
Re^3: xml::twig delete element
by mirod (Canon) on Oct 13, 2009 at 08:37 UTC

    Please, when asking for help, send a minimum, self-contained, test case, including inputs, outputs and expected outputs. It will make it possible for me (and other monks) to run the code, fix it, check that it does what you want it to do and post it back. The code above makes no sense to me, it's missing way to much context. Thanks.

    BTW, the development version of XML::Twig now raises an error on handler triggers that use the position selector, thanks for spotting the bug.

[reply]
      Hi mirod, please find my code below. I am using the below code in process of "content" element and find "$fcnvar" Which is from "box" element not equal to blank then i need to search '//color@self="ua5"' and i should get the attribute "pnam" of that "color" element. how can i do that. can you please suggest. i am struggling here. 
      use strict;
use warnings;

use XML::Twig;

my $twig=XML::Twig->new(
                        twig_handlers=>{
                                        content=> \&content_handler,
                                        },
                        );
$twig->parse(\*DATA);
$twig->flush;

sub content_handler
{
  my ($twig, $content)= @_;
    if($content->{'att'}->{'type'} eq "text")
    {
      my $selfatt=$content->att_xml_string('Self');
      my $expr='//box[@textflowid="'.$selfatt.'"][@type="text"]';
        my @tagnames = $twig->get_xpath($expr);
      for my $temp (@tagnames)
          {
              my $fcnvar=$temp->att_xml_string('frameColorID');
#          print "#$fcnvar#";
#          if (!($fcnvar eq "")){
#          my $expr='//color[@self="ua5"]';
#          print "$expr";
#          my @colorvalarr = $twig->get_xpath($expr);
#          print @colorvalarr;
#          print $colorvalarr[0];
#          $fcnvar=$colorvalarr[0]->att_xml_string('pnam');
#          }
      $content->set_tag('updated_tag');
      $content->del_atts;
      $content->set_atts
          }

         }
    }



__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]
      OUTPUT REQUIRED: 
      <document>
  <root>
  <box type="text" cont="text" textflowid="rc_u5035"  frameColorID="ua
+5"/>
  </root>
  <updated_tag color="Color 05-10M/40Y"/>
  <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]
[reply]
[d/l]
[select]

        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]
[reply]
[d/l]

In Section Seekers of Perl Wisdom