无法在@INC 中找到 XML/LibXML/Element.pm

Question

我已经使用 CPAN 安装了 XML:LibXML，但仍然出现以下错误：

Can't locate XML/LibXML/Element.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .)

下面是我的代码：

#!usr/bin/perl
use XML::LibXML::Element;
my $pxml = '/cctest/projects.xml';
my $twigp = XML::LibXML->new-> parse_file($pxml);
my $result = $twigp->getChildrenByTagName('branched_from_id');
print $result->to_literal,"\n";

projects.xml:

<projects>
    <project>
                    <id>ID_2_19_16_12_15</id>
                    <name>RPSW </name>
                    <branch>fb16</branch>
                    <location>/draw/projects</location>
                    <author>Ras</author>
                    <branched_from_id>ID_10_8_13_12_35</branched_from_id>
                    <branched_from_version>175</branched_from_version>
            </project>

<project>
                <id>ID_1_21_14_1_13_24_PM</id>
                <name>Platform</name>
                <location>/draw/projects</location>
                <author>lav</author>
                <assigned_user>ka</assigned_user>
</project>

</projects>

请帮我找出我哪里做错了？要求是仅获取具有元素 branched_from_id.

的节点

Answer 1

如果我使用您的代码，我也会遇到同样的 Can't locate module 错误。但是如果我使用

它就会消失

use XML::LibXML; 
$node = XML::LibXML::Element->new( $name );

模块概要中也提到了同样的内容。

您收到错误消息是因为没有 Element.pm 文件。 XML::LibXML::Element is a package inside LibXML.pm. See: https://metacpan.org/source/SHLOMIF/XML-LibXML-2.0128/LibXML.pm

例如，如果您有一个模块 Mod::Test as

package Mod::Test;

#do something

package Mod::Test::Another;

#do something

1;

并且您在脚本中将其用作

#!/usr/bin/perl

use strict;
use warnings;
use Mod::Test::Another;

那么你会得到错误，但是如果你use Mod::Test那么你就不会得到错误。

顺便说一句，下面是一种不使用 XML::LibXML::Element.

查找标签的方法

#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;

my $filename = "projects.xml";

my $parser = XML::LibXML->new();
my $xmldoc = $parser->parse_file($filename);
for my $node ($xmldoc->findnodes('/projects/project')) {
    for my $property ($node->findnodes('./*')) {
        if ($property->nodeName() eq 'branched_from_id'){
            print "Found branched_from_id node, value is ".$property->textContent();
        }
    }
    print "\n";
}

输出：

$ perl test.pl 
Found branched_from_id node, value is ID_10_8_13_12_35

无法在@INC 中找到 XML/LibXML/Element.pm

Can't locate XML/LibXML/Element.pm in @INC

xml

perl

xml-parsing

perl-module

xml-libxml