如何在perl腳本中有條件地使用線程？

Question

我有一個perl腳本，我已經開發了在具有不同版本的perl的主機上運行，​​有時使用線程編譯，有時沒有。

我有一個

use if $Config{"useithreads"}, "threads"; 

而且我所有的特定線程的代碼是在類似條件語句。

然而，在編譯階段，perl的還是扼流圈線程::所有，線程運行::等

我如何不確定我的腳本在兩個線程和非線程運行，皮爾斯？

[ worr on worr-mn1 ] (manage_usr_local_admin) % perl -c acct_mgr_ng.pl 
Bareword "threads::joinable" not allowed while "strict subs" in use at acct_mgr_ng.pl line 117. 
BEGIN not safe after errors--compilation aborted at acct_mgr_ng.pl line 541. 

Answer 1

當線程加載，PERL知道threads::all（朋友）是一個子程序調用，即使沒有括號或&;因爲線程可能沒有加載，所以明確地用括號括起來：threads::all()

Answer 2

use語句在編譯時被解析。您希望使用require或Module::Load在運行時有條件地引入模塊。

像這樣的東西應該工作：

use Module::Load(); 
if($Config{'useithreads'}) { 
    Module::Load::load("threads"); 
}