perlのourについて

2009/06/15 00:00

ちょっとあやふやにしてる部分があったのでメモ

１．ourを使うとそのレキシカルスコープ内では完全修飾を
しなくてもアクセス可能（use strict時の話ね)
２．結局はグローバル変数の定義です
３．ourの有効範囲はレキシカルスコープなんでパッケージも越えてしまう

#!/usr/bin/perl -l
use strict;
use warnings;
{
my $test=10;
print $test;
{
our $test=20;
print $test;
}
print $test;
}
print $main::test;