在Perl中验证XPath表达式

Question

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

Answer 1

您正在寻找Perl中的libxml's 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]})' 

$