我有以下Perl代碼，它依賴于Term::ReadKey獲取終端寬度; 我的NetBSD版本缺少此模塊，因此我希望在模塊丟失時將終端的寬度默認(rèn)為80。我無法弄清楚如何有條件地使用模塊，提前知道它是否可用。我當(dāng)前的實現(xiàn)只是退出一條消息，說它無法找到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你能幫我更有效地將它實現(xiàn)到我的腳本中嗎？
3 回答
翻閱古今
TA貢獻(xiàn)1780條經(jīng)驗 獲得超5個贊
這是一個簡單的解決方案，不需要另一個模塊：
my $rc = eval
{
require Term::ReadKey;
Term::ReadKey->import();
1;
};
if($rc)
{
# Term::ReadKey loaded and imported successfully
...
}
請注意，下面的所有答案（我希望它們低于這一個！:-)使用eval { use SomeModule }是錯誤的，因為use語句在編譯時進(jìn)行評估，無論它們出現(xiàn)在代碼中的哪個位置。因此，如果SomeModule不可用，腳本將在編譯時立即死亡。
（use語句的字符串eval 也可以工作（eval 'use SomeModule';），但是當(dāng)require/ importpair執(zhí)行相同的操作時，在運行時解析和編譯新代碼是沒有意義的，并且在編譯時進(jìn)行語法檢查以進(jìn)行引導(dǎo)。）
最后，請注意我對此示例的使用eval { ... }和$@簡潔。在實際代碼中，您應(yīng)該使用類似Try :: Tiny的東西，或至少知道它解決的問題。
幕布斯7119047
TA貢獻(xiàn)1794條經(jīng)驗 獲得超8個贊
經(jīng)典的答案（可以追溯到Perl 4，至少在有'使用'之前很久）是'require（）'一個模塊。這是在腳本運行時執(zhí)行的，而不是在編譯時執(zhí)行，您可以測試成功或失敗并做出適當(dāng)?shù)姆磻?yīng)。
- 3 回答
- 0 關(guān)注
- 494 瀏覽
添加回答
舉報
0/150
提交
取消