当 运行 作为非 root 用户时,Perl 模块无法正确加载

Perl modules not loading correctly when running as non-root user

我 运行 在 linux 系统上遇到 Perl 问题。

安装新模块时(作为 root),我偶尔会遇到 运行ning 脚本作为普通用户的问题,如果不手动进入和 chmod 775,我将无法访问新模块查看模块相关文件和目录。

我最近进行了 CPAN 升级,并为一个新项目安装了几个模块。现在,Perl 几乎无法作为普通用户使用,因为似乎与权限无关的错误。

例如,以下非常简单的脚本 运行 作为 root 可以正常运行,但作为普通用户 returns 出错 运行:

#!/usr/bin/perl
use strict;
use warnings;
use Scalar::Util;

如您所见,脚本实际上除了尝试加载 Scalar::Util 模块外什么也没做。作为普通用户,它 returns 这个错误:

**List::Util object version 1.21 does not match bootstrap parameter 1.42 at /usr/lib64/perl5/DynaLoader.pm line 223.
Compilation failed in require at /usr/local/lib64/perl5/Scalar/Util.pm line 22.
Compilation failed in require at ./scalar-test.pl line 4.
BEGIN failed--compilation aborted at ./scalar-test.pl line 4**

当我 sudo cpan 并尝试 install List::Util 时,我回来了: List::Util 是最新的 (1.42)。

澄清: 这发生在多个模块中,而不仅仅是一个示例。它似乎并没有影响每个升级的模块;虽然是好几个

root 可以 运行 脚本告诉我,要么存在另一个我没有看到的潜在权限问题,要么 root 的 PERL 配置在某些方面与我的常规帐户略有不同这导致它找不到这个模块。

搜索 List.pm 文件返回:

 » sudo find / -name List.pm 

/usr/share/perl5/I18N/LangTags/List.pm
/opt/OV/nonOV/perl/a/lib/5.8.8/I18N/LangTags/List.pm
/root/.cpan/build/perl-5.22.1-D0_eFO/dist/I18N-LangTags/lib/I18N/LangTags/List.pm

 » ls -l /usr/share/perl5/I18N/LangTags/List.pm
-rw-r--r-- 1 root root 28826 Nov  6  2014 /usr/share/perl5/I18N/LangTags/List.pm

 » ls -l /opt/OV/nonOV/perl/a/lib/5.8.8/I18N/LangTags/List.pm
-r--r--r-- 1 bin bin 28826 Nov 30  2012 /opt/OV/nonOV/perl/a/lib/5.8.8/I18N/LangTags/List.pm

 » sudo ls -l /root/.cpan/build/perl-5.22.1-D0_eFO/dist/I18N-LangTags/lib/I18N/LangTags/List.pm
-r--r--r-- 1 1018 513 28826 Oct 17 08:32 /root/.cpan/build/perl-5.22.1-D0_eFO/dist/I18N-LangTags/lib/I18N/LangTags/List.pm

系统是 RHEL 6.6 x64,Perl 是 v5.10.1


**» type perl**
perl is hashed (/usr/bin/perl)

**» which perl**
/usr/bin/perl 

**» sudo type perl**
sudo: type: command not found 

**» sudo which perl**
/usr/bin/perl

**» echo ${!PERL*}**
[Nothing Returned] 

**» sudo echo ${!PERL*}**
[Nothing Returned]

**» perl -wle 'print join("\n", @INC)'**
/usr/local/lib64/perl5 
/usr/local/share/perl5 
/usr/lib64/perl5/vendor_perl 
/usr/share/perl5/vendor_perl 
/usr/lib64/perl5 
/usr/share/perl5 
[run with sudo returns identical list]

[Edited for brevity] 
cpan[1]> o conf 
$CPAN::Config options from /usr/share/perl5/CPAN/Config.pm: 
build_dir [/root/.cpan/build] 
build_dir_reuse [0] 
build_requires_install_policy [ask/yes] 
connect_to_internet_ok [1] 
cpan_home [/root/.cpan] 
keep_source_where [/root/.cpan/sources] 
make [/usr/bin/make] 
make_install_make_command [/usr/bin/make] 
makepl_arg [INSTALLDIRS=site] 
prefer_installer [MB] 
prefs_dir [/root/.cpan/prefs] 

我从其他用户的文件夹中删除了几行

 » sudo find / -name Util.pm | grep "List/Util.pm"
/usr/lib64/perl5/List/Util.pm
/usr/local/lib64/perl5/List/Util.pm
/home/{USERNAME REDACTED}/.cpanm/work/1448660183.31550/ExtUtils-MakeMaker-7.10/bundled/Scalar-List-Utils/List/Util.pm
/root/.cpan/build/Scalar-List-Utils-1.42-2c3ONp/lib/List/Util.pm
/root/.cpan/build/Scalar-List-Utils-1.42-2c3ONp/blib/lib/List/Util.pm
/root/.cpan/build/Scalar-List-Utils-1.42-NOwU0A/lib/List/Util.pm
/root/.cpan/build/Scalar-List-Utils-1.42-NOwU0A/blib/lib/List/Util.pm
/root/.cpan/build/perl-5.22.1-D0_eFO/cpan/Scalar-List-Utils/lib/List/Util.pm

应 brian d foy 的要求,我安装了一个新模块。这个模块 Config::Onion 以前没有安装过,所以没有什么旧的冲突。模块安装正常,但我创建了一个 onion-test.pl 脚本,与上面相同,它有同样的问题,它只以 root 身份加载模块。

 » sudo perl -MConfig::Onion -e 'print "Module: " . $ARGV[0] . "\nVersion: " . $ARGV[0]->VERSION . "\n\n"' Config::Onion
Can't locate Config/Onion.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 .).
BEGIN failed--compilation aborted.

 » sudo cpan
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v2.10)
Enter 'h' for help.

cpan[1]> install Config::Onion

[Redacted for brevity. No errors noted during this process.]

Result: PASS
  DSHEROH/Config-Onion-1.004.tar.gz
  /usr/bin/make test -- OK
Running make install
Prepending /root/.cpan/build/Config-Onion-1.004-TigyuT/blib/arch /root/.cpan/build/Config-Onion-1.004-TigyuT/blib/lib to PERL5LIB for 'install'
Manifying 2 pod documents
Installing /usr/local/share/perl5/Config/Onion.pm
Installing /usr/local/share/perl5/Config/Onion/Simple.pm
Installing /usr/local/share/man/man3/Config::Onion.3pm
Installing /usr/local/share/man/man3/Config::Onion::Simple.3pm
Appending installation info to /usr/lib64/perl5/perllocal.pod
  DSHEROH/Config-Onion-1.004.tar.gz
  /usr/bin/make install  -- OK

 » cd /usr/local/share/perl5/Config
 » sudo ls -l  Onion
total 4
-r--r--r-- 1 root root 1856 May  9  2014 Simple.pm

 » sudo find / -name Onion.pm
/usr/local/share/perl5/Config/Onion.pm
/root/.cpan/build/Config-Onion-1.004-TigyuT/lib/Config/Onion.pm
/root/.cpan/build/Config-Onion-1.004-TigyuT/blib/lib/Config/Onion.pm


onion-test.pl:

#!/usr/bin/perl
use strict;
use warnings;

use Config::Onion;



 » ./onion-test.pl
Can't locate Hash/Merge/Simple.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 .) at /usr/local/share/perl5/Config/Onion.pm line 9.
BEGIN failed--compilation aborted at /usr/local/share/perl5/Config/Onion.pm line 9.
Compilation failed in require at ./onion-test.pl line 29.
BEGIN failed--compilation aborted at ./onion-test.pl line 29.


 » sudo ./onion-test.pl
[No Errors]

Per Ikegami,我 运行 这个命令:

sudo chmod -R go+rX                   \
   /usr/local/lib64/perl5        \
   /usr/local/share/perl5        \
   /usr/lib64/perl5/vendor_perl  \
   /usr/share/perl5/vendor_perl  \
   /usr/lib64/perl5              \
   /usr/share/perl5 

我的两个测试脚本 Scalar::Util 和 Config::Onion 都在正确加载模块。我认为他的解决方案是解决我遇到的问题的正确解决方案,并且我已相应地对其进行了标记。感谢大家的研究,感谢池上找到解决方案。

根据您提供的信息,我只能了解这么多,但这是一个开始。如果您填写一些详细信息,我们也许可以解决这个问题。

这些类型的错误通常意味着您在不同的地方安装了同一模块的两个版本,或者它在一个地方升级不完整(可能是因为有人手动尝试过,没有足够的权限,或者被中断了).该程序能够从一个来源加载模块的一部分,无法加载第二部分并寻找其他地方。因此你得到了不匹配。

在您的情况下,您在 /usr/lib64/perl5List::Util 中都有 List::Util /usr/local/lib64/perl5。从您的 @INC,您首先查看 /usr/local/lib64/perl5。我猜这就是最新版本应该在的地方。由于某种原因,它无法正确加载,所以它一直在寻找并在 /usr/lib64/perl5 中找到旧版本,但这是不匹配的。

对于纯 Perl 文件,这些匹配通常无关紧要。但是,对于编译的 (XS) 模块,它们的编译细节必须匹配。相同编译工具的不同版本,或相同版本的不同输入,可能会导致格式不兼容。或者,同一 Perl 模块名称的不同版本可能已经重新组织,因此它们与以前版本的二进制组件不匹配。因此,您在其他事情出错后收到的错误消息。

我想知道在你的情况下你是否设置了一个奇怪的 umask 以便你的根模块安装不会使文件可读(或目录可执行)以便其他用户可以看到这些文件。更改权限之前的权限是什么?你应该找出那个问题,因为你说你以前遇到过同样的问题(并且可能再次遇到)。

cpan模块可以帮你翻翻当前Perl的@INC。我还没有在这个版本的 Perl 上升级 List::Util,它在 lib/5.22.0/darwin-2level:

下找到
$ cpan -D List::Util
CPAN: Storable loaded ok (v2.53)
Reading '/Users/brian/.cpan/Metadata'
  Database was generated on Tue, 26 Jan 2016 12:17:02 GMT
List::Util
-------------------------------------------------------------------------
    List utilities (eg min, max, reduce)
    P/PE/PEVANS/Scalar-List-Utils-1.42.tar.gz
    /usr/local/perls/perl-5.22.0/lib/5.22.0/darwin-2level/List/Util.pm
    Installed: 1.41
    CPAN:      1.42  Not up to date
    Graham Barr (GBARR)
    gbarr@pobox.com

我更新后,更新在lib/site_perl/5.22.0/darwin-2level,一个不同的目录。 CPAN.pm 不会删除旧版本,它只是隐藏它们。我还有你的 Perl 最初附带的版本,现在你在 site_perl

中有了更新
$ cpan -D List::Util
CPAN: Storable loaded ok (v2.53)
Reading '/Users/brian/.cpan/Metadata'
  Database was generated on Tue, 26 Jan 2016 12:17:02 GMT
List::Util
-------------------------------------------------------------------------
    CPAN: Module::CoreList loaded ok (v5.20150520)
List utilities (eg min, max, reduce)
    P/PE/PEVANS/Scalar-List-Utils-1.42.tar.gz
    /usr/local/perls/perl-5.22.0/lib/site_perl/5.22.0/darwin-2level/List/Util.pm
    Installed: 1.42
    CPAN:      1.42  up to date
    Graham Barr (GBARR)
    gbarr@pobox.com

路径可能因系统而异,但思路是一样的。我在不同的目录下有不同的版本。

现在重现问题。奇怪的是,在 Perl v5.22 中,当我移动新安装的目录使其没有正确的名称(迫使 Perl 在错误的目录中查找)时,我得到了一条非常友好(尽管同样无用)的消息:

$ perl5.22.0 -MScalar::Util -e 1
List::Util version 1.42 required--this is only version 1.41 at /usr/local/perls/perl-5.22.0/lib/site_perl/5.22.0/darwin-2level/Scalar/Util.pm line 23.
Compilation failed in require.
BEGIN failed--compilation aborted.

看来您使用的是 Perl 5.8.8。当我在我的系统上尝试相同的过程时,cpan 将文件写入相同的位置。

但是,您可以为安装位置配置 cpan。您的系统可能已经为您完成了这些工作。如果您有构建日志(或 cpan 配置或包管理器信息)向我们展示新 List::Util 的安装位置,那可能会有所帮助。或者,找到我们您已安装​​的 List/Util.pm 文件的列表,我们可以向后工作。如果您是从软件包安装的,则可能选择了其他位置。

我的建议通常是不理会基础安装,而是将所有内容安装到一组不同的目录中。如果您正在使用系统 perl(看起来您确实是),弄乱系统执行其管理和管理任务所需的相同 perl 可能会导致额外的麻烦。

List/Util/Util.so可能在

中存在两次
/usr/local/lib64/perl5 
/usr/local/share/perl5 
/usr/lib64/perl5/vendor_perl 
/usr/share/perl5/vendor_perl 
/usr/lib64/perl5 
/usr/share/perl5 

它们是不同的版本。较新的只能由 root 访问。如果这是问题,将使用

解决
chmod -R go+rX                   \
   /usr/local/lib64/perl5        \
   /usr/local/share/perl5        \
   /usr/lib64/perl5/vendor_perl  \
   /usr/share/perl5/vendor_perl  \
   /usr/lib64/perl5              \
   /usr/share/perl5 

对于那些遇到此类问题的人,并且是 运行 grsec linux 内核,检查 dmesg -T 是否出现了消息,例如

[Thu Jul 13 12:39:32 2017] grsec: From 12.34.56.78: denied untrusted exec (due to file in group-writable directory) of /usr/local/lib/x86_64-linux-gnu/perl/5.24.1/auto/DBD/mysql/mysql.so by /usr/bin/perl[perl:9515] uid/euid:1000/1000 gid/egid:1000/1000, parent /bin/bash[bash:31545] uid/euid:1000/1000 gid/egid:1000/1000

这意味着非根用户无法使用 perl 共享库 mysql.so 因为对父文件夹的权限。

足够好的解决方案是(例如,在这种特殊情况下)chmod parent folder g-w (group -write)

chmod g-w /usr/local/lib/x86_64-linux-gnu/perl/5.24.1/auto/DBD/mysql/