Perl

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

use strict;
use warnings;
use Chilkat2;

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

my $success = $xml->LoadXmlFile('qa_data/xml/pigs.xml');
if (!$success) {
    print $xml->LastErrorText, "\n";
    exit;
}

# Get the content of the "species" node for the 1st animal:
my $result = $xml->ChilkatPath('animal|species|*');
# Output should be "pot belly pig"
print $result, "\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, "\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, "\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 (!$xml->LastMethodSuccess) {
    print "Failed to navigate to animal|picture.\n";
    exit;
}

# Display the contents of the file/description/caption child nodes
print "Picture Info:\n";
print $xml->GetChildContent('file'), "\n";
print $xml->GetChildContent('description'), "\n";
print $xml->GetChildContent('caption'), "\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 "----\n";
$result = $xml->ChilkatPath('animal|gender|(spay-neuter)');
print $result, "\n";