Question

我已经制作了一个脚本来管理管理员需要在机器上安装的模块列表。

我正在尝试通过下面的代码检查安装的模块。奇怪的是，它在机器中显示的安装模块为not installed

    #!/usr/bin/perl -w
    my @module_list =('Smart::Comments','HTML::Parse');
    foreach (@module_list) {
      eval { require "$_" };
      if (!($@)) {
        print "Module Not installed : $_\n";
      }
    }

Answer 1

您需要使用eval的字符串形式，因为require需要一个裸字参数来匹配模块名称的双冒号分隔形式（例如Scalar::Util）。（如果它不是一个单词，那么它需要是一个相对路径，例如'Scalar/Util.pm'）

#!/usr/bin/perl

use strict;
use warnings;

my @module_list = ('Scalar::Util', 'flibble');

foreach (@module_list) {
    if (!eval "require $_") {
        print "Module not installed: $_\n";
    }
}

Answer 2

我的App::Module::Lister，我设计为modulino，可以作为模块，命令行实用程序或CGI脚本运行。对于只有FTP访问Web服务器的朋友来说，这是一件简单的事情。

它为您提供了Perl模块搜索路径中所有内容的列表，我通常比每次检查特定模块更容易。一旦我有了整个列表，我就看一下列表。

你可以检查你是否可以加载模块，但我倾向于不喜欢它，因为我不想运行模块的代码来查看它是否已安装。但这通常不是问题。

检查机器中安装的模块列表

2 个答案: