以非root用户身份运行时,Perl模块未正确加载

irlmq6kh  于 2022-11-15  发布在  Perl
关注(0)|答案(3)|浏览(134)

我在Linux系统上遇到Perl问题。
当安装新模块(作为根),我偶尔会有问题,作为一个普通用户运行脚本,我将无法访问新模块,而不手动进入和chmod 775'ing模块相关的文件和目录。
我最近进行了一次CPAN升级,并为一个新项目安装了几个模块。现在,Perl作为一个普通用户几乎无法使用,因为出现了一些与权限无关的错误。
例如,以下非常简单的脚本以root用户身份正常运行,但以普通用户身份运行时返回错误:

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

正如您所看到的,该脚本实际上什么也不做,只是尝试加载Scalar::Util模块。

**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可以运行脚本的事实告诉我,要么有另一个我没有看到的底层权限问题,要么PERL在某些方面为root配置的与我的常规帐户略有不同,这导致它找不到这个模块。
正在返回对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]

根据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都在加载模块,没有错误。我认为他的解决方案是正确的,我已经相应地标记了它。感谢大家的研究,并感谢Ikegami的解决方案。

huwehgph

huwehgph1#

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
lndjwyie

lndjwyie2#

  • 根据您提供的信息,我只能了解到目前为止,但这是一个开始。如果您填写一些详细信息,我们可能会解决这个问题。*

这类错误通常意味着你在不同的地方安装了同一模块的两个版本,或者在一个地方升级不完全(可能是因为有人手动尝试,没有足够的权限,或者被中断)。程序可以从一个源加载模块的一部分,但无法加载第二部分,并在其他地方查找。因此,你会得到不匹配。
在您的例子中,看起来您在 */usr/lib 64/perl 5 * 和 */usr/local/lib 64/perl 5 * 中都有List::Util。在您的@INC中,您首先在 */usr/local/lib 64/perl 5 * 中查找。我猜最新版本应该在那里。由于某种原因,它没有正确加载,所以它继续查找,并在 */usr/lib 64/perl 5 * 中找到旧版本。但这是不匹配的。
对于纯Perl文件,这些匹配通常无关紧要。(XS)模块,它们的编译细节必须匹配。相同编译工具的不同版本,或者相同版本的不同输入,可能导致格式不兼容。或者,同一Perl模块名称的不同版本可能已经重新组织,因此它们与以前版本的二进制组件不匹配。因此,在其他东西已经出错后,您会收到错误消息。
我想知道你是否设置了一个奇怪的umask,这样你的根模块安装就不会使文件可读(或目录可执行),这样其他用户就可以看到这些文件。在你改变它们之前,权限是什么?你应该跟踪这个问题,因为你说你以前遇到过同样的问题(可能还会遇到)。
cpan模块可以在当前Perl的@INC中找到它。我还没有在这个版本的Perl上升级List::Util,它可以在 lib/5.22.0/达尔文-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/达尔文-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搞砸可能会导致额外的麻烦。

hiz5n14c

hiz5n14c3#

对于那些正在与此类问题作斗争并且正在运行grseclinux内核的用户,请检查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

这意味着由于父文件夹的权限,非root用户无法使用perl共享库mysql.so
足够好的解决方案是(例如,在本例中)chmod父文件夹g-w(group -write)

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

相关问题