我编写了一个shell脚本，可以在Centos64上进行操作
在这个脚本的末尾，我运行了一个perl脚本。
它可以正常工作（我已经安装了perl模块），但当我以系统用户身份运行时
我收到消息：
./UserActivityReport.sh
Can't locate MIME/Lite.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /optreports/sendmailUAR.pl line 3.
BEGIN failed--compilation aborted at /opt/reports/sendmailUAR.pl line 3.
好像没有为用户安装模块......
我在shell脚本中使用此命令运行脚本：
/usr/bin/perl /opt/reports/sendmailUAR.pl
为什么不运行？
注意：我无法与系统用户一起安装perl模块。
=== 你去了：
perl -MMIME::Lite -MData::Dumper -e'print Dumper \%INC'
$VAR1 = {
're.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/re.pm',
'warnings/register.pm' => '/usr/lib/perl5/5.8.8/warnings/register.pm',
'XSLoader.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/XSLoader.pm',
'IO/Handle.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/IO/Handle.pm',
'MIME/Types.pm' => '/usr/lib/perl5/site_perl/5.8.8/MIME/Types.pm',
'SelectSaver.pm' => '/usr/lib/perl5/5.8.8/SelectSaver.pm',
'IO/Seekable.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/IO/Seekable.pm',
'warnings.pm' => '/usr/lib/perl5/5.8.8/warnings.pm',
'File/Basename.pm' => '/usr/lib/perl5/5.8.8/File/Basename.pm',
'Fcntl.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Fcntl.pm',
'IO.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/IO.pm',
'Symbol.pm' => '/usr/lib/perl5/5.8.8/Symbol.pm',
'bytes.pm' => '/usr/lib/perl5/5.8.8/bytes.pm',
'MIME/Type.pm' => '/usr/lib/perl5/site_perl/5.8.8/MIME/Type.pm',
'Carp.pm' => '/usr/lib/perl5/5.8.8/Carp.pm',
'MIME/Base64.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/MIME/Base64.pm',
'Exporter/Heavy.pm' => '/usr/lib/perl5/5.8.8/Exporter/Heavy.pm',
'File/Spec/Unix.pm' => '/usr/lib/perl5/5.8.8/File/Spec/Unix.pm',
'FileHandle.pm' => '/usr/lib/perl5/5.8.8/FileHandle.pm',
'strict.pm' => '/usr/lib/perl5/5.8.8/strict.pm',
'Exporter.pm' => '/usr/lib/perl5/5.8.8/Exporter.pm',
'vars.pm' => '/usr/lib/perl5/5.8.8/vars.pm',
'MIME/Lite.pm' => '/usr/lib/perl5/site_perl/5.8.8/MIME/Lite.pm',
'MIME/QuotedPrint.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/MIME/QuotedPrint.pm',
'File/Spec.pm' => '/usr/lib/perl5/5.8.8/File/Spec.pm',
'overload.pm' => '/usr/lib/perl5/5.8.8/overload.pm',
'IO/File.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/IO/File.pm',
'Mail/Address.pm' => '/usr/lib/perl5/site_perl/5.8.8/Mail/Address.pm',
'Data/Dumper.pm' => '/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Data/Dumper.pm'
答案 0 :(得分：2)
在其中一条评论中，您发布了一个如下目录列表：
[root~]# ls -l /usr/lib/perl5/site_perl/5.8.8/
total 60
drwxr-x--- 3 root root 4096 Sep 14 13:09 Date
drwxr-x--- 3 root root 4096 Sep 14 13:09 Email
drwxr-x--- 4 root root 4096 Sep 14 13:10 Mail
drwxr-x--- 2 root root 4096 Sep 14 13:10 MIME
drwxr-x--- 2 root root 4096 Sep 15 06:30 OLE
drwxr-x--- 2 root root 4096 Sep 15 06:30 Parse
drwxr-x--- 2 root root 4096 Sep 14 13:10 Pod
drwxr-x--- 3 root root 4096 Sep 15 06:30 Spreadsheet
drwxr-x--- 2 root root 4096 Sep 14 13:09 Time
-r--r--r-- 1 root root 6500 Aug 21 07:19 version.pm
-r--r--r-- 1 root root 9887 Aug 21 07:12 version.pod
非常明显的是root以外的用户无权访问这些文件。您应该通过循环所有@INC并根据需要更改权限来进行更全面的审核，但首先，find /usr/lib/perl5/site_perl/5.8.8 -type d -exec chmod a+rx {} \;
答案 1 :(得分：1)
我认为root的umask是默认情况下文件不可读的。
find /usr/lib/perl5 -not -perm -o=r
列出的任何文件都不是世界可读的（可能应该是）。你可以这样修理
find /usr/lib/perl5 -not -perm -o=r -exec chmod o+r {} +
如果您希望使所有文件与每个人都可读的第一个命令匹配。
答案 2 :(得分：1)
MIME::Lite位于/usr/lib/perl5/site_perl/5.8.8/MIME/Lite.pm，/usr/lib/perl5/site_perl/5.8.8位于系统的@INC路径中。
当用户system检查您是否可以阅读该文件时：
cat /usr/lib/perl5/site_perl/5.8.8/MIME/Lite.pm
如果您收到错误，请检查文件和父目录的权限。
否则，使用system将脚本作为strace运行，并查看无法找到模块文件的原因。