アンパサンドの力

perlも忘れてないですよ(´m`)。次のコードの結果に、納得できますか？

sub my_print{ print @_; }   
sub test1{  my_print;}
sub test2{ &my_print;}

test1("test1\n");
test2("test2\n");

【結果】
test2

納得出来たらかなりの通。perlsubには以下のように書いてあります。

&foo; # foo() get current args, like foo(@_) !!
foo; # like foo() IFF sub foo predeclared, else "foo"

88へえ。