値を外部から呼び出したい

質問

私の質問は初歩的なもので申し訳ないのですが、file1.plとfile2.plというファイルが存在するとします。
file1.plは
________________________
use strict;
use warnings;

require 'file2.pl';

print $x;
_________________________

file2.plは
__________________________
$x =12;
1;
_________________________

この状態でfile1.plを実行するとエラー文が表示されて、$xにパッケージネームを要求されてしまいます。しかし、use strict; use warnings;を削除して実行すると12が表示されます。

そこで質問です。

1.　use strict; use warnings;を付けた場合なぜ、エラーメッセージが表示されるのか。この使い方は間違っているのか。

2.　外部から値のみを呼び出すときに最適な他の方法があるのか。

以上をお答えいただければ幸いです。
ご回答の方よろしくお願いいたします。

回答No.1

luka3 · ベストアンサー

何も指定せずに宣言された変数はそのファイル内でのみ有効なローカル変数のように扱われます。
なのでfile1.plでは$xが定義されていないためエラーとなります。

グローバル変数として宣言するには our を使います。
file1.pl で、まず our $x; を宣言しておいて、file2.pl で our $x = 12; とすればご希望の通りに動くと思います。

他の方法としては、file2.pl をテキストファイルとして読み込み、eval を実行すれば同じく動くと思います。（あまりおすすめしません）

お礼

ourの存在すら知りませんでした。お恥ずかしい。
初心者の稚拙な質問にご回答ありがとうございました！