サブルーチンのリファレンス

ハッシュだけでなく、サブルーチンや配列もリファレンスを作ることが出来る。

—————————————
#!c:/Perl/bin/Perl.exe -w

print "Content-type:text/html\n\n";

# 以下は、サブルーチンのリファレンスを逆参照
my $add = \&add_number;
my $answer = &$add(1,2);
print $answer."<br>";

# 以下は、サブルーチンを普通に実行
$answer = &add_number(1,2);
print $answer."<br>";

# サブルーチン
sub add_number {
my $hikisu1 = shift;
my $hikisu2 = shift;
my $result = $hikisu1 + $hikisu2;
return $result;
}
—————————————

を実行すると、

—————————————
3
3
—————————————

と表示される。