(Perl) Demonstrate the XML I, J, and K Properties

Demonstrates the XML I, J, and K properties. These properties can be used in paths to access the I'th, J'th, or K'th child in a path. Three indexing properties are provided to allow for triple-nested loops using this feature.

Note: This example requires Chilkat v9.5.0.64 or later.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# Note: This example requires Chilkat v9.5.0.64 or later.

$xml = chilkat::CkXml->new();

$xml->put_Tag("tripleNested");

$i = 0;
$j = 0;
$k = 0;

$sbValue = chilkat::CkStringBuilder->new();
$bAutoCreate = 1;

while ($i < 3) {
    $xml->put_I($i);
    $j = 0;
    while ($j < 4) {
        $xml->put_J($j);
        $k = 0;
        while ($k < 2) {
            $xml->put_K($k);

            $n = $i * 100 + $j * 10 + $k;
            $sbValue->Clear();
            $sbValue->AppendInt($n);

            $xml->UpdateAt("a[i]|b[j]|c[k]",$bAutoCreate,$sbValue->getAsString());
            $k = $k + 1;
        }

        $j = $j + 1;
    }

    $i = $i + 1;
}

print $xml->getXml() . "\r\n";

# This is the XML
# See below for code showing how to parse it..

# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<tripleNested>
# 	    <a>
# 	        <b>
# 	            <c>0</c>
# 	            <c>1</c>
# 	        </b>
# 	        <b>
# 	            <c>10</c>
# 	            <c>11</c>
# 	        </b>
# 	        <b>
# 	            <c>20</c>
# 	            <c>21</c>
# 	        </b>
# 	        <b>
# 	            <c>30</c>
# 	            <c>31</c>
# 	        </b>
# 	    </a>
# 	    <a>
# 	        <b>
# 	            <c>100</c>
# 	            <c>101</c>
# 	        </b>
# 	        <b>
# 	            <c>110</c>
# 	            <c>111</c>
# 	        </b>
# 	        <b>
# 	            <c>120</c>
# 	            <c>121</c>
# 	        </b>
# 	        <b>
# 	            <c>130</c>
# 	            <c>131</c>
# 	        </b>
# 	    </a>
# 	    <a>
# 	        <b>
# 	            <c>200</c>
# 	            <c>201</c>
# 	        </b>
# 	        <b>
# 	            <c>210</c>
# 	            <c>211</c>
# 	        </b>
# 	        <b>
# 	            <c>220</c>
# 	            <c>221</c>
# 	        </b>
# 	        <b>
# 	            <c>230</c>
# 	            <c>231</c>
# 	        </b>
# 	    </a>
# 	</tripleNested>
# 

# Parse the XML, without needing to know the number of children.
# That can be discovered with the NumChildrenAt method.

$i = 0;
$aCount = $xml->get_NumChildren();
while ($i < $aCount) {
    $xml->put_I($i);
    $j = 0;
    $bCount = $xml->NumChildrenAt("a[i]");
    while ($j < $bCount) {
        $xml->put_J($j);
        $k = 0;
        $cCount = $xml->NumChildrenAt("a[i]|b[j]");
        while ($k < $cCount) {
            $xml->put_K($k);
            print $i . ", " . $j . ", " . $k . ": " . $xml->GetChildIntValue("a[i]|b[j]|c[k]") . "\r\n";
            $k = $k + 1;
        }

        $j = $j + 1;
    }

    $i = $i + 1;
}

# Output:

# 	0, 0, 0: 0
# 	0, 0, 1: 1
# 	0, 1, 0: 10
# 	0, 1, 1: 11
# 	0, 2, 0: 20
# 	0, 2, 1: 21
# 	0, 3, 0: 30
# 	0, 3, 1: 31
# 	1, 0, 0: 100
# 	1, 0, 1: 101
# 	1, 1, 0: 110
# 	1, 1, 1: 111
# 	1, 2, 0: 120
# 	1, 2, 1: 121
# 	1, 3, 0: 130
# 	1, 3, 1: 131
# 	2, 0, 0: 200
# 	2, 0, 1: 201
# 	2, 1, 0: 210
# 	2, 1, 1: 211
# 	2, 2, 0: 220
# 	2, 2, 1: 221
# 	2, 3, 0: 230
# 	2, 3, 1: 231
#