Perl についての質問です。

すいません。エラーメッセージを入力し忘れていました。

宣言する部分は
require "kankyou.pl";

で、使用するとき、$kankyou::YOMIKOMI_KAZU;
とするとうまく行きました。これであっているのでしょうか？

ちなみに、my宣言しています。

エラーメッセージは、
Global symbol "$YOMIKOMI_KAZU" requires explicit package name

プラグインはEPICです。

package 宣言してるなら、参照時にパッケージ名は必要。

いろいろ、助言ありがとうございました。最終的に、

main.cgi==================================

use kankyou;

print "$kankyou::YOMIKOMI_KAZU";

==========================================

kankyou.pm================================

package kankyou;

our $YOMIKOMI_KAZU = 4;

1;
==========================================

以上のようにして、うまく行きました。理由はよくわからないのですが、、、。

とりあえず、当初の目的である、「別ファイルに変数を設定」は達成することができました。

package 宣言をしていない（＝デフォルト）ときは、package main であると見なされたはずです。
ですから、kankyou.pm の方で、package main; とするとメインプログラムの方でもそのまま（$kankyou::YOMIKOMI_KAZU ではなく$YOMIKOMI_KAZU のまま）使えるようになるのでは？
検証無しに書いていますので、チョッと自信が無いです。

ありがとうございます。

さっそくやってみます。

余談ですが、今の時点では、$kankyou::YOMIKOMI_KAZUと書いた方が「ああ、これはkankyou.pmのやつなんだな、、、。」と解ってお得だなーと考えておりました。

今後は、package main;で行こうと思います。

ｍｙだと、読めなかったので、ourにしたのですが、これはour宣言で正解なのでしょうか？

＞今後は、package main;で行こうと思います。
通常は main で問題ないが、環境によっては互換性に問題が出るのでやめたほうがよい。
それよりは、Exporter を使った方が正攻法。
http://www.rfs.jp/sb/perl/04/01.html#2%EF%BC%8E%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB

＞ｍｙだと、読めなかったので、ourにしたのですが、これはour宣言で正解なのでしょうか？
正解。
ブロックの外で my を宣言した場合たしかファイルスコープになるはず。
つまり require した側からは直接使えない。

ありがとうございます。

では、今後は$kankyou::YOMIKOMI_KAZUとして、使っていきたいと思います。

ourで正解なんですね、よかったー。

＞KUROX さん
＞tezcello さん
＞b-wind さん
今後ともよろしくお願いいたします。