perlで外部ファイル内の変数を読み込む

  2011/03/20     2015/04/19

■呼び出し先 $TEST = "testtest"; 1; ■呼び出し元 require('./conf.pl'); print $TEST; ■結果 testtest

1 2 3 4 5 6 7 8

■呼び出し先 $TEST = "testtest"; 1; ■呼び出し元 require('./conf.pl'); print $TEST; ■結果 testtest

• これで、呼び出し先の変数を参照できる。

ただし、「use strict;」を設定すると下記のエラーが出る。
use strictをすると、変数は必ずスコープの宣言が必要になる。

use strictを使う場合下記のように、グローバル宣言をする必要がある。

■呼び出し先 use strict; our $TEST = "testtest"; 1; ■呼び出し元 use strict; our $TEST; require('./conf.pl'); print $TEST; ■結果 testtest

1 2 3 4 5 6 7 8 9 10 11

■呼び出し先 use strict; our $TEST = "testtest"; 1; ■呼び出し元 use strict; our $TEST; require('./conf.pl'); print $TEST; ■結果 testtest

 - perl

  関連記事