in reply to Perl XML "dynamic paths "?

Where does $VAR come from?

Maybe you want Data::Diver? Maybe you want Tree::XPathEngine? Maybe you just don't want to use XML::Simple and directly query your data using XPath?

Also see Data::DPath.

Replies are listed 'Best First'.
Re^2: Perl XML "dynamic paths "?
by kazak (Beadle) on Aug 16, 2012 at 15:12 UTC
    Sorry for the late answer. This is example of my config, a node number is the $VAR, in my case. I may need to use config options from <node3> or <nodeN>, that's why I need some sort of variable I guess. 
    <?xml version='1.0'?>
<regions>
  <node3>
    <instance_num>0</instance_num>
    <common_db_template>165.sql</common_db_template>
    <lib_db_template>165b.sql</lib_db_template>
    <region>node3</region>
    <region_db_host>192.168.38.1</region_db_host>
    <region_db_port>3306</region_db_port>
    <region_name>node3.test.com</region_name>
    <region_prefix>Nd3_</region_prefix>
  </node3>
  <node4>
    <instance_num>0</instance_num>
    <common_db_template>165.sql</common_db_template>
    <lib_db_template>165b.sql</lib_db_template>
    <region>node4</region>
    <region_db_host>192.168.22.1</region_db_host>
    <region_db_port>3308</region_db_port>
    <region_name>node4.test.com</region_name>
    <region_prefix>Nd4_</region_prefix>
  </node4>
  <node5>
    <instance_num>0</instance_num>
    <common_db_template>165.sql</common_db_template>
    <lib_db_template>165b.sql</lib_db_template>
    <region>node5</region>
    <region_db_host>192.168.1.1</region_db_host>
    <region_db_port>3306</region_db_port>
    <region_name>node5.test.com</region_name>
    <region_prefix>Nd5_</region_prefix>
  </node5>
</regions>

    [download]
[reply]
[d/l]

      If all you need is one specific element of your path to change, then using ->{$VAR}-> already is enough. See Data::Dumper for getting output of a Perl data structure, and References Quick Reference for how to use references. References are what XML::Simple returns.

[reply]
[d/l]
        Thank you so much, it helped.
[reply]

In Section Seekers of Perl Wisdom