Demonstrates the ChilkatPath XML Method

Demonstrates how to use the ChilkatPath method. This example uses the XML sample file pigs.xml. The pigs.xml file contains this content:

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$xml = new chilkat::CkXml();

$success = $xml->LoadXmlFile("pigs.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\n";
    exit;
}

#  Get the content of the "species" node for the 1st animal:

$result = $xml->chilkatPath("animal|species|*");
#  Output should be "pot belly pig"
print $result . "\r\n";

#  Get the content of the "type" node for the 2nd animal:
#  Indexing begins at 0.  Therefore, the 2nd direct child having
#  the tag "animal" is at index 1
$result = $xml->chilkatPath("animal[1]|type|*");
#  Output should be "House Pig"
print $result . "\r\n";

#  Find the pig having the name "Nigel" and display the
#  birth date.  To do this, we'll navigate to the node having
#  tag="name" with the exact content "Nigel", then navigate up,
#  and finally navigate back down to the "birth" node:
$result = $xml->chilkatPath("/C/name,Nigel|..|birth|*");
#  Output should be "June, 1991"
print $result . "\r\n";

#  Navigate to the 1st animal's picture and print the filename,
#  description, and caption.
#  The "$" updates the caller's internal pointer to reference
#  the node that is the result of evaluating the path.
#  An empty string is returned for success, and a NULL/nil/0
#  pointer (reference) is returned on failure.
$result = $xml->chilkatPath("animal|picture|$");
if ($result eq null ) {
    print "Failed to navigate to animal|picture." . "\r\n";
    exit;
}

#  Display the contents of the file/description/caption child nodes
print "Picture Info:" . "\r\n";
print $xml->getChildContent("file") . "\r\n";
print $xml->getChildContent("description") . "\r\n";
print $xml->getChildContent("caption") . "\r\n";

#  Return back to the root of the XML document:
$xml->GetRoot2();

#  Display the value of the "spay-neuter" attribute of the 1st animal:
print "----" . "\r\n";
$result = $xml->chilkatPath("animal|gender|(spay-neuter)");
print $result . "\r\n";