“使用库”找不到 Perl 模块

Question

我在 Windows 7 上，我下载了一个名为 XML::XPath 的 CPAN module，我想在我编写的脚本中使用它。

我不能在我的机器上修改@INC，我不能在我的机器上修改环境变量，我不能在我的机器上运行make，我不能在我的机器上使用包管理器。

所以为了使用该模块，我去了CPAN网站，下载了该模块的.tar.gz文件，并将其解压缩到我项目中的lib文件夹中。我这样做是因为this guide 建议我可以在我的脚本上下文中使用use lib 来引用下载的模块：

向脚本添加 use lib 语句会将目录添加到 @INC 以用于该特定脚本。不管是谁在什么环境下运行它。

我的脚本名为test.pl。我正在尝试使用XML::XPath 模块来解析一个名为test.xml 的XML 文件。这是我的目录结构的示例：

C:/
  → sandbox/
      test.pl
      test.xml
    → lib/
      → XML-XPath-1.13/
          XPath.pm
        → XPath/
            XMLParser.pm
            (etc.)

这是我的test.pl 脚本：

#!/usr/bin/perl
use strict;
use warnings;
use lib qw("C:/sandbox/lib/XML-XPath-1.13");

my $xml_file = "C:/sandbox/test.xml";
my $result;

if (-f $xml_file) {
  $result = XML::XPath->new(filename => "$xml_file");
}

当我使用perl test.pl 运行此脚本时，脚本失败并出现以下错误：

无法在 test.pl 第 10 行通过包“XML::XPath”找到对象方法“new”（也许您忘记加载“XML::XPath”？）。

我可以用use lib 解决这个错误吗？

编辑：

当我将use XML::XPath; 添加到我的test.pl 脚本时，如下所示：

#!/usr/bin/perl
use strict;
use warnings;
use lib qw("C:/sandbox/lib/XML-XPath-1.13");

我收到如下错误：

在@INC 中找不到 XML/XPath.pm

但如上所述，我无法在我的机器上实际修改@INC 或重新编译 Perl。

Answer 1

这是行不通的。 XML::XPath 依赖于需要编译的 XML::Parser 模块。由于您没有可用的 C 编译器的完整工具链，因此您无法运行它。您将不得不寻找一种不同的方式来处理您的 XML。

仅当您拥有纯 Perl 模块时，仅提取 tarball 才有效。

在 Windows 上获得完整的 Perl 工具链的最简单方法是安装 Linux 安装 Strawberry Perl 发行版。甚至还有 ZIP 版和便携版，可以安装在 U 盘上，无需管理员权限。

---

您更直接的问题是 1.13 版中的 XML::XPath 似乎是一个具有不寻常目录布局的伪劣模块。您尝试加载的包位于XML-XPath-1.13/XPath.pm，但应位于XML-XPath-1.13/lib/XML/XPath.pm。为什么？

当您说use XML::XPath; 时，它会做两件事。首先，Perl 在所有@INC 目录中搜索文件XML/XPath.pm。假设你有类似的东西

use FindBin;
use lib "$FindBin::Bin/lib/XML-XPath-1.13";

那么 perl 会期望一个不存在的文件 PROJECT/lib/XML-XPath-1.13/XML/XPath.pm（我使用 PROJECT 作为脚本目录的占位符）。

由于文件PROJECT/lib/XML-XPath-1.13/XPath.pm 确实存在，您可以说use XPath;。

但随后发生了第二件事：导入了包，以便它可以将子例程或常量加载到您的命名空间中。 use'd 包名现在用作一个类：XPath->import。但是XPath.pm文件不包含XPath包而是XML::XPath包，所以没有XPath类和import方法。

可以通过在 use 语句中提供一个空列表来抑制导入方法调用：use XPath ();。

比这样的黑客攻击更好，您可以使用更新版本的 XML::XPath（版本 1.13 来自 2003，但更新的版本 1.42 来自 2007）。一旦你提取它，你可以use lib "$FindBin::Bin/lib/XML-XPath-1.42/lib" 然后use XML::XPath;。

但这仍然行不通，因为XML::XPath 执行use XML::Parser 并且您没有安装该模块。现在我们回到您的主要问题：需要首先编译 XML::Parser，因为它包含 C 扩展，并且还依赖于外部库。如果没有完整的工具链，您将无法编译它。

Answer 2

首先，您应该将模块正确安装到lib，而不是将分发解压缩到lib。

那么，你需要

use FindBin qw( $RealBin );
use lib "$RealBin/lib";

use XML::XPath qw( );