Perl Requires Chilkat v9.5.0.64+

Demonstrate the XML I, J, and K Properties

See more XML Examples

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $xml = Chilkat2::Xml->new;

$xml->Tag('tripleNested');

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

my $sbValue = Chilkat2::StringBuilder->new;
my $bAutoCreate = 1;

while ($i < 3) {
    $xml->I($i);
    $j = 0;
    while ($j < 4) {
        $xml->J($j);
        $k = 0;
        while ($k < 2) {
            $xml->K($k);

            my $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(), "\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;
my $aCount = $xml->NumChildren;
while ($i < $aCount) {
    $xml->I($i);
    $j = 0;
    my $bCount = $xml->NumChildrenAt('a[i]');
    while ($j < $bCount) {
        $xml->J($j);
        $k = 0;
        my $cCount = $xml->NumChildrenAt('a[i]|b[j]');
        while ($k < $cCount) {
            $xml->K($k);
            print $i, ', ', $j, ', ', $k, ': ', $xml->GetChildIntValue('a[i]|b[j]|c[k]'), "\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
#