perl use vars pragma提示_應用技巧

perl 中的vars是perl中的一個pragma(先行編譯指示符），專門用來預定義全域變數，這些預定義後的全域變數在qw()列表中，在整個引用perl檔案中皆可使用，即便使用use strict也不會報錯：

複製代碼 代碼如下:

use strict ;
$str = "hello world!\n" ;

報錯資訊：Global symbol "$str" requires explicit package name at ~vars.pl line 3.
Execution of ~vars.pl aborted due to complication errors.

引用use vars後執行結果：

複製代碼 代碼如下:

use strict ;
use vars qw($str) ;
$str = "hello world!\n" ;
print $str ;

Output :

hello world!