ハッシュや無名ハッシュからサブルーチン呼び出し

ハッシュや無名ハッシュを使って、サブルーチンに引数を渡し、サブルーチンを呼び出すことが出来る。

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

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

# ハッシュからサブルーチンを呼び出す
%hash = ("SUB" => \&add_number);
my $answer = $hash{"SUB"}->(1,2);
print $answer."<br>";

# 無名ハッシュからサブルーチンを呼び出す
my $add = {"SUB" => \&add_number};
my$answer = $add->{"SUB"}->(1,2);
print $answer."<br>";

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

を実行すると、

——————————————–
3
3
——————————————–

と表示される。