Perl の my と local ：月並みな話

myとlocalってどう違うのよ？というのは常識ですが、
未だに誤解していたので下記。

my $a = 1; 
local $b = 2;  

check1(*a); 
check1(*b);  

check2($a); 
check2($b);  

exit;  

sub check1 { 
   local *test = $_[0];  

   print $test; 
   print "n"; 
}  

sub check2 { 
   local $test = $_[0];  

   print $$test; 
   print "n"; 
} 

#####################################

実行結果：

2
1
2
#####################################

my変数は型グロブに渡せない、と。

あとついでですが、
$/ = “\n”
です。
$/ = ‘\n’
じゃない。

キーワード：局所変数,リファレンス