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';

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.