为了账号安全,请及时绑定邮箱和手机立即绑定

在使用之前如何检查我是否有Perl模块?

在使用之前如何检查我是否有Perl模块?

浮云间 2019-09-03 16:26:10
我有以下Perl代码,它依赖于Term::ReadKey获取终端宽度; 我的NetBSD版本缺少此模块,因此我希望在模块丢失时将终端的宽度默认为80。我无法弄清楚如何有条件地使用模块,提前知道它是否可用。我当前的实现只是退出一条消息,说它无法找到Term::ReadKey它是否缺席。#/usr/pkg/bin/perl -w# Try loading Term::ReadKeyuse Term::ReadKey;my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();my @p=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);my $plen=$#p+1;printf("num |".("%".int(($wchar-5)/$plen)."d") x $plen."\n",@p);我在NetBSD上使用Perl 5.8.7,在CygWin上使用5.8.8你能帮我更有效地将它实现到我的脚本中吗?
查看完整描述

3 回答

?
翻阅古今

TA贡献1780条经验 获得超5个赞

这是一个简单的解决方案,不需要另一个模块:


my $rc = eval

{

  require Term::ReadKey;

  Term::ReadKey->import();

  1;

};


if($rc)

{

  # Term::ReadKey loaded and imported successfully

  ...

}

请注意,下面的所有答案(我希望它们低于这一个!:-)使用eval { use SomeModule }是错误的,因为use语句在编译时进行评估,无论它们出现在代码中的哪个位置。因此,如果SomeModule不可用,脚本将在编译时立即死亡。


(use语句的字符串eval 也可以工作(eval 'use SomeModule';),但是当require/ importpair执行相同的操作时,在运行时解析和编译新代码是没有意义的,并且在编译时进行语法检查以进行引导。)


最后,请注意我对此示例的使用eval { ... }和$@简洁。在实际代码中,您应该使用类似Try :: Tiny的东西,或至少知道它解决的问题。


查看完整回答
反对 回复 2019-09-03
?
叮当猫咪

TA贡献1776条经验 获得超12个赞

查看CPAN模块Module :: Load :: Conditional。它会做你想要的。


查看完整回答
反对 回复 2019-09-03
?
幕布斯7119047

TA贡献1794条经验 获得超8个赞

经典的答案(可以追溯到Perl 4,至少在有'使用'之前很久)是'require()'一个模块。这是在脚本运行时执行的,而不是在编译时执行,您可以测试成功或失败并做出适当的反应。


查看完整回答
反对 回复 2019-09-03
  • 3 回答
  • 0 关注
  • 452 浏览
慕课专栏
更多

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信