使用if pragma有條件地包括Perl模塊時出錯

Question

這很好用：

use if (1), 'x86_64-linux-thread-multi::Devel::Cover::DB::IO::JSON';

但不是這個：

my $a=1;
use if ($a), 'x86_64-linux-thread-multi::Devel::Cover::DB::IO::JSON';

稍后打印錯誤Can't locate object method "new" via package "JSON" (perhaps you forgot to load "JSON"?) at ./script.pl line 100.我有$json = JSON->new; 在第100行中。

我正在使用Perl 5.16.2版本，有什么幫助嗎？ 提前致謝。

Answer 1

變量的分配發生在運行時，而use發生在編譯時。 因此，在你的榜樣， $a尚未分配的任何值時use情況發生，所以它的計算結果為undef 。

要在編譯時分配給$a ，請使用BEGIN ：

my $a;
BEGIN { $a = 1 }
use if ($a), 'x86_64-linux-thread-multi::Devel::Cover::DB::IO::JSON';

您還應該知道，使變量$a和$b詞法通常是令人厭煩的，因為這會干擾sort函數的正常操作。