在Perl中验证XPath表达式

Question

请参阅此question我们如何在Perl中执行相同操作？

Answer 1

你在Perl中寻找libxml的xmlXPathNewContext吗？这很简单，你search the CPAN for libxml，然后是search (grep) the distribution you found for xmlXPathNewContext。之后你应该找到一个复制/粘贴或文档来阅读的例子。

$ perl -mXML::LibXML -e'XML::LibXML::XPathExpression->new( q{/foo} )'

$ perl -mXML::LibXML -e'XML::LibXML::XPathExpression->new( q{/foo<} )'
XPath error : Invalid expression
/foo<
     ^

$ perl -mXML::LibXML -e'XML::LibXML::XPathExpression->new( q{/foo[} )'
XPath error : Invalid expression
/foo[
     ^

$ perl -mXML::LibXML -e'XML::LibXML::XPathExpression->new( q{/foo[]} )'
XPath error : Invalid expression
/foo[]
     ^

$ perl -mXML::LibXML -e'XML::LibXML::XPathExpression->new( q{/foo[1]} )'

$