パッケージ内のグローバル変数

質問

perlでいまいち理解できないことがあります。

パッケージ内にグローバル変数を作った場合、
外部のスクリプトから完全修飾名で参照できますが、
myによるグローバル変数だけ見ることができません。

レキシカルスコープとはいえ、パッケージ内では
グローバル変数にしても参照できないようです。

package MyGlobalVal
use vars qw($val1); # これは外部から見える
our $val2; #これも外部から見える
my $val3; # これは見えない

この場合、$val3は外部からなんらかの方法でアクセス
可能なんでしょうか？

また参照できない理由はmy宣言により、パッケージの
名前空間とは別の場所(Cだとローカル変数はスタック上に
積まれますよね)にあるから、という理解でよいのでしょうか？

アドバイスなどいただけると幸いです。

回答No.1

BLUEPIXY · ベストアンサー

my による変数は、基本的にスコープの外側から見ることができません。
参照を返すような関数で参照を渡してやればアクセス可能だと思います。
例：
sub test {
my $test_v = 10;# 関数の中の変数、通常外からアクセスできない。
return \$test_v;# 参照を返す
}
$v = test();
print $$v,"\n";# 参照を使って読み出す
$$v += 10; # 値の変更をする
print $$v;

＞参照できない理由は…という理解でよいのでしょうか？
perl の実装に詳しくないので判定できかねます。
（単にスタック上にあるのではないのは確かです、特別に名前の管理をしているように思えます）

お礼

ご回答ありがとうございます。
リファレンスを得れば、外部から見えるんですね。
おっしゃるとおり示していただいた例だとsub test
内のスコープを抜けてからも $test_v が参照できて
いるので、単純にスタック上などでないのが明白ですね。
分かりやすいコードまで示していただいてありがとう
ございます。

その後、らくだ頭本など調べ直してみたのですが、
「パッケージ・名前空間」のところに「my変数は
特別な場所におかれる」とありました。すなわち
mainやその他のパッケージとは別の場所に置かれる
ようです。

疑問が解けてすっきりしました。