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!