perl - 在 Perl 中验证 XPath 表达式

Question

请参考这个问题我们如何在 Perl 中做同样的事情？

Answer 1

xmlXPathNewContext您在 Perl 中寻找 libxml ？这很容易，您在 CPAN 中搜索 libxml，然后搜索（grep）您找到的发行版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]} )'

$