WWW::Webrobot::UseXPath - Apply XPath expressions to an xml string

webrobot documentation Contained in the webrobot distribution.

Index

Code Index:

NAME

Top

WWW::Webrobot::UseXPath - Apply XPath expressions to an xml string

SYNOPSIS

Top

 use WWW::Webrobot::UseXPath;
 WWW::Webrobot::UseXPath -> new($xml) -> extract($xpath_expression);

DESCRIPTION

Top

Apply XPath expressions to an xml string.

METHODS

Top

WWW::Webrobot::UseXPath -> new ($xml)

Allocate an XPath object for the xml-string $xml

$self -> extract ($expr)

Apply an xpath expression $expr for this object. The result is of type string.

webrobot documentation Contained in the webrobot distribution. 
package WWW::Webrobot::UseXPath;
use strict;
use warnings;

# Author: Stefan Trcek
# Copyright(c) 2004 ABAS Software AG


use UNIVERSAL qw(isa);  # *isa = \&UNIVERSAL::isa;
use XML::XPath;
use XML::XPath::XMLParser;



sub new {
    my ($proto, $xml) = @_;
    my $self = {
        _xml => $xml,
        _xpath => XML::XPath -> new(xml => $xml),
    };
    return bless ($self, ref($proto) || $proto);
}


sub extract {
    my ($self, $expr) = @_;
    my $node = eval {
        $self -> {_xpath} -> find($expr);
    };
    return undef if $@;

    my $ret = "";
    if ($node -> isa("XML::XPath::NodeSet")) {
        $ret = join "\n", map { XML::XPath::XMLParser::as_string($_) } $node -> get_nodelist();
    }
    else {
        $ret = $node -> value();
    }
    return $ret;
}


1;