TeamSite::DCRnode loop

ProfessorX

https://support.interwoven.com/library/devel/tst/pt/5_01/TeamSite__DCRnode.asp

says

$rootnode = TeamSite:CRnode->new($xml_string);
$city = $rootnode->value('region.city'); # Boston
$city = $rootnode->value('region[0].city'); # Boston
$city = $rootnode->value('region[1].city'); # Sunnyvale

How do I loop so I could do
foreach ???
{
$tmpcity = $rootnode->value('region['+$i+'].city'); # {City name}
}




The Professor-

Migrateduser

Something like this will output the following:

Boston
Sunnyvale

use TeamSite::XMLnode;


my $xml_string=<<'EOS';
<?xml version="1.0" encoding="UTF-8"?>
    <!DOCTYPE record SYSTEM "dcr4.5.dtd">
    <record name="test99">
         <item delimiter=", " name="region">
             <value>
                 <item delimiter=", " name="city">
                     <value>Boston</value>
                 </item>
                 <item delimiter=", " name="zip">
                     <value>02134</value>
                 </item>
             </value>
             <value>
                 <item delimiter=", " name="city">
                     <value>Sunnyvale</value>
                 </item>
                 <item delimiter=", " name="zip">
                     <value>00000</value>
                 </item>
             </value>
        </item>
    </record>
EOS

my $root  = TeamSite::XMLnode->new($xml_string);

# get all the <b> nodes on the 1st level of this tree
my @regionNode = $root->get_node_list('region');

foreach my $region (@regionNode){
    my @cityNode = $region->get_node_list('city');
    foreach my $city (@cityNode){
        print $city->value. "\n";
    }
}

--
Jed Michnowicz
Interwoven Technical Consultant