Perl/リファレンス

リファレンスについて

my $var = 44;
my $ref = \$var; # $varへのリファレンス

print $ref;      # スカラ変数のリファレンス
print ${$ref};   # 実体


my @var = ("a".."f");
my $ref = \@var; # @varへのリファレンス

print $ref;      # 配列へのリファレンス
print @{$ref};   # 実体


my $sub = sub {
  my $i = shift;
  return $i+1;
}; # コードリファレンス; クロージャ

print $sub->(33);  # リファレンスのコードを実行; 34と返る
print &{$sub}(33); # 等価