strict と require と グローバル変数

質問

また基本的なことをお伺いします。
↓メインスクリプト（main.pl）
------------------------------
#!perl
use strict;
require("x.pl");
print "X = $x\n";
------------------------------
↓サブスクリプト(x.pl）
----------------------
our $x = "XXX";
----------------------

これをそのまま、main.plを実行すると、
Global symbol "$x" requires explicit package name at main.pl line 4.
のようにエラーが出ます。

この対処として、色々試したのですが、
例えば、次のようにすれば、とりあえず回避はできました。
↓メインスクリプトにて、
------------------------------
#!perl
use strict;
our $x; ←★ここで宣言を入れておく。
require("x.pl");
print "X = $x\n";
------------------------------

＜質問です＞
１）この回避策は妥当でしょうか。他に正しい方法がありましたら、教えてください。
２）そもそも、use strictは、requireの展開よりも先に実行されてしまうものでしょうか。

以上、よろしくお願いします。
Win-2000sp4＋ActivePerlのV5.8.7で使っています。

回答No.1

BLUEPIXY · ベストアンサー

１）
our は、グローバル変数を宣言するので、これでいいと思います。
（x.pl の方には必要なくなりますが、有った方がわかりがいいかも）

２）
use は、コンパイル時に実行・処理されます。
require は、実行時に実行・処理されます。
なので、use が先になります。

お礼

いつもご親切にありがとうございます。

＞use は、コンパイル時に実行・処理されます。
＞require は、実行時に実行・処理されます。
＞なので、use が先になります。

この辺りの基本的なことを独学していこうとすると、
ネットで検索する以外に、効果的な本などがあるのかなと
思っています。
また、よろしければ教えてください。

回答No.3

BLUEPIXY

＃１＞この辺りの基本的なことを独学していこうとすると、ネットで検索する以外に、効果的な本などがあるのかなと
読み切るのは大変かと思いますが、
プログラミングＰｅｒｌ　Ｖｏｌｕｍｅ１，２
なんかがいいかも
http://www.7andy.jp/books/detail?accd=31034169

お礼

すみません、長らく間が開いてしまいました。
ご回答ありがとうございました。

回答No.2

BLUEPIXY

グローバル変数を定義するのに、もうひとつ
use vars qw( $x );
というのもできます。

お礼

重ねてありがとうございます。
ちなみに、このqw()などについても学習中なのですが、
直接は今回の件に、関係しませんので、別掲で質問します。