Perl

SearchAllForContent

See more XML Examples

Demonstrates the SearchAllForContent method. Perl

use chilkat();

$success = 0;

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

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

# xBeginAfter is a Xml
$xBeginAfter = $xml->GetSelf();
# xFound is a Xml
$xFound = $xml->SearchAllForContent($xBeginAfter,"*pig*");
$searchForMore = 1;
while (($searchForMore == 1)) {

    print $xFound->tag() . "\r\n";
    print $xFound->content() . "\r\n";
    print "--" . "\r\n";

    # xBeginAfter is a Xml
    $xBeginAfter = $xFound;
    # xFound is a Xml
    $xFound = $xml->SearchAllForContent($xBeginAfter,"*pig*");

    $searchForMore = $xml->get_LastMethodSuccess();
}