perl use vars pragma 使用のヒント

2022-01-29 10:08:06

vars in perl は perl のプラグマで、qw() リストにあるグローバル変数を事前定義するために使用され、use strict がエラーを報告しない場合でも、参照される perl ファイル全体で使用することが可能です。

コピーコードコードは以下の通りです。

use strict ;

$str = "hello world!\n" ;

エラーメッセージです。グローバルシンボル "$str" は ~vars.pl の行 3 で明示的にパッケージ名を要求しています。
複雑なエラーのため、~vars.pl の実行が中断されました。

use varsを参照した後の実行結果です。

コピーコードコードは以下の通りです。

use strict ;

use vars qw($str) ;

$str = "hello world!\n" ;

print $str ;

出力:

hello world!

関連