in reply to Re: XML::Twig Help
in thread XML::Twig Help

Usually, instead of writing $elt->first_child('USERNAME'  )->text(), I write $elt->field( 'USERNAME'), it is easier to read. It also doesn't die if there is no USERNAME child, which may be convenient.

Oh, and xmltwig.com is down at the moment, but it's mirrored at mirod.org.

Replies are listed 'Best First'.
Re^3: XML::Twig Help
by toolic (Bishop) on Jan 07, 2011 at 14:42 UTC
    ++mirod, I was unaware of field.

    On another topic, you probably didn't see my update regarding access to your excellent website. Were you aware that it has been tough to get to for some time now?

[reply]
[d/l]
      I REALLY appreciate your help team...

      OK, that seems to help me understand handlers better but what about situations where the xml tag has multiple children of the same name? When attempting to use the handler as below I only get the first TYPE element.

      i.e. 

      use strict;
use XML::Twig;

my $xmlstr = <<EOF;
<TREES>
 <APPLE>
  <TYPE id="1001">Scarlet</TYPE>
  <TYPE id="1002">Red</TYPE>
  <TYPE id="1003">Gold</TYPE>
  <TYPE id="1004">Fuji</TYPE>
  <TYPE id="1005">Scarlet</TYPE>
 </APPLE>
 <PEAR>
  <TYPE id="1001">Bradford</TYPE>
  <TYPE id="1002">Cleveland Select</TYPE>
  <TYPE id="1003">Aristocrat</TYPE>
  <TYPE id="1004">Autumn Blaze</TYPE>
 </PEAR>
</TREES>
EOF


my $twig = XML::Twig->new(twig_handlers => {APPLE => \&apple});

$twig->parse($xmlstr);

sub apple {
    my ($t, $elt) = @_;
    print $elt->att('id'), "\n";
    print $elt->field('TYPE' ), "\n";
    print "\n";
}

      [download]
[reply]
[d/l]
        use warnings;
use strict;
use XML::Twig;

my $xmlstr = <<EOF;
<TREES>
 <APPLE>
  <TYPE id="1001">Scarlet</TYPE>
  <TYPE id="1002">Red</TYPE>
  <TYPE id="1003">Gold</TYPE>
  <TYPE id="1004">Fuji</TYPE>
  <TYPE id="1005">Scarlet</TYPE>
 </APPLE>
 <PEAR>
  <TYPE id="1001">Bradford</TYPE>
  <TYPE id="1002">Cleveland Select</TYPE>
  <TYPE id="1003">Aristocrat</TYPE>
  <TYPE id="1004">Autumn Blaze</TYPE>
 </PEAR>
</TREES>
EOF


my $twig = XML::Twig->new(twig_handlers => {APPLE => \&apple});

$twig->parse($xmlstr);

sub apple {
    my ($t, $elt) = @_;
    for my $type ($elt->children('TYPE')) {
        print $type->att('id'), "\n";
        print $type->text(), "\n";
        print "\n";
    }
}

__END__
1001
Scarlet

1002
Red

1003
Gold

1004
Fuji

1005
Scarlet

        [download]

        Use warnings too.

[reply]
[d/l]
      Good day team,
      I wanted to thank everyone for the suggestions and I seem to be on my way using this module but I am stuck on one final extraction component and not sure exactly what I am doing wrong.

      Below is a sample of the xml and the small snipnet of code I am trying to utilize. But No Joy!

      I would appreciate one final example to help me get over this last hump and I think I will be ok if I could just understand how to walk down the twig just a few elements and then be able to understand the proper way to get further down the twig.

      Again many thanks in advance. 

      #!/home/p1aldbw1/aldb/perl-5.12.2/bin/perl

use warnings;
use strict;
use XML::Twig;
use Data::Dumper;


 
my $xmlstr = <<EOF;
<AGENT hostname="viper3">
<NAMESPACE>
    <APPCLASS name="ORACLE_AVAILABILITY">
         <INSTANCE name="atecr">
             <PARAMETER name="InstanceStatus">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>1</MIN> 
                  <MAX>1</MAX> 
                  <TRIGGER>After 7 times</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>WARN</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>2</MIN> 
                  <MAX>2</MAX> 
                  <TRIGGER>After 7 times</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>ALARM</STATE> 
              </ALARM2>
          </PARAMETER>
             <PARAMETER name="RSSpaceLeft">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM2>
          </PARAMETER>
             <PARAMETER name="CannotExtend">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>1</MIN> 
                  <MAX>1</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>ALARM</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM2>
            </PARAMETER>
        </INSTANCE>
    </APPCLASS>
    <APPCLASS name="ORACLE_CAPACITY">
         <INSTANCE name="atecq">
             <PARAMETER name="FreeSpace">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>1</MIN> 
                  <MAX>1</MAX> 
                  <TRIGGER>After 7 times</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>WARN</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>2</MIN> 
                  <MAX>2</MAX> 
                  <TRIGGER>After 7 times</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>ALARM</STATE> 
              </ALARM2>
          </PARAMETER>
             <PARAMETER name="ExtentsLeft">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM2>
          </PARAMETER>
             <PARAMETER name="CursorsLeft">
              <TYPE>CONSUMER</TYPE> 
                 <BORDER>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </BORDER>
                 <ALARM1>
                  <ACTIVE>1</ACTIVE> 
                  <MIN>1</MIN> 
                  <MAX>1</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>1</RECOVERY> 
                  <STATE>ALARM</STATE> 
              </ALARM1>
                 <ALARM2>
                  <ACTIVE>0</ACTIVE> 
                  <MIN>0</MIN> 
                  <MAX>0</MAX> 
                  <TRIGGER>Immediate</TRIGGER> 
                  <RECOVERY>0</RECOVERY> 
                  <STATE>OK</STATE> 
              </ALARM2>
            </PARAMETER>
        </INSTANCE>
    </APPCLASS>    
</NAMESPACE>
</AGENT
EOF


my $twig = XML::Twig->new(twig_handlers => {NAMESPACE => \&namespace})
+;

$twig->parse($xmlstr);



my(@NAMESPACE,$APPCLASS,$INSTANCE,$PARAMETER,$PARAM_TYPE);

sub namespace 
{
    my ($t, $elt) = @_;
    for my $appclass ( $elt->children() )
    {
        $APPCLASS = $appclass->att('name');
        for my $instance ($appclass->children())
        {
            $INSTANCE = $instance->att('name');
            for my $parameter ($instance->children())
            {
                $PARAMETER = $parameter->att('name');
                $PARAM_TYPE = $parameter->field('TYPE');
                
                @NAMESPACE = $APPCLASS . "~" . $INSTANCE . "~" . $PARA
+METER . "~" . $PARAM_TYPE;
            }
        }
    }
}

print Dumper @NAMESPACE;
print "\n\n";

      [download]


      I must be on the right track because it does in fact return the first branch as expected.

      $VAR1 = 'ORACLE_CAPACITY~atecq~CursorsLeft~CONSUMER';
[reply]
[d/l]
        Since you didn't specify what your desired output should be, I can only guess. I suspect you want to push into your array. I also simplified the code using join.

        change: 

                        @NAMESPACE = $APPCLASS . "~" . $INSTANCE . "~" . $PARA
+METER . "~" . $PARAM_TYPE;

        [download]
        to: 
                        push @NAMESPACE, join '~', $APPCLASS, $INSTANCE, $PARA
+METER, $PARAM_TYPE;

        [download]
        Output: 
        $VAR1 = 'ORACLE_AVAILABILITY~atecr~InstanceStatus~CONSUMER';
$VAR2 = 'ORACLE_AVAILABILITY~atecr~RSSpaceLeft~CONSUMER';
$VAR3 = 'ORACLE_AVAILABILITY~atecr~CannotExtend~CONSUMER';
$VAR4 = 'ORACLE_CAPACITY~atecq~FreeSpace~CONSUMER';
$VAR5 = 'ORACLE_CAPACITY~atecq~ExtentsLeft~CONSUMER';
$VAR6 = 'ORACLE_CAPACITY~atecq~CursorsLeft~CONSUMER';

        [download]
        Side note: Typically, you would pass a reference to Data::Dumper: 
        print Dumper(\@NAMESPACE);

__END__

$VAR1 = [
          'ORACLE_AVAILABILITY~atecr~InstanceStatus~CONSUMER',
          'ORACLE_AVAILABILITY~atecr~RSSpaceLeft~CONSUMER',
          'ORACLE_AVAILABILITY~atecr~CannotExtend~CONSUMER',
          'ORACLE_CAPACITY~atecq~FreeSpace~CONSUMER',
          'ORACLE_CAPACITY~atecq~ExtentsLeft~CONSUMER',
          'ORACLE_CAPACITY~atecq~CursorsLeft~CONSUMER'
        ];

        [download]

        Side note: use "readmore" tags for large code samples: Writeup Formatting Tips

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom