perl – 检查机器中安装的模块列表
发布时间:2020-12-16 06:25:59 所属栏目:大数据 来源:网络整理
导读:我已经制作了一个脚本来管理管理员需要在机器上安装的模块列表. 我试图通过下面的代码检查安装的模块.奇怪的是,它显示了未安装的机器中安装的模块 #!/usr/bin/perl -w my @module_list =('Smart::Comments','HTML::Parse'); foreach (@module_list) { eval {
我已经制作了一个脚本来管理管理员需要在机器上安装的模块列表.
我试图通过下面的代码检查安装的模块.奇怪的是,它显示了未安装的机器中安装的模块 #!/usr/bin/perl -w my @module_list =('Smart::Comments','HTML::Parse'); foreach (@module_list) { eval { require "$_" }; if (!($@)) { print "Module Not installed : $_n"; } } 解决方法
您需要使用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"; } } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |