Open MagicVox.net
ハッシュを変数に代入せずに、ハッシュから値を参照するための覚書。基本中の基本か。
#!/usr/bin/perl
sub foo {
my %common = (
'alphabet' => 'alpha beta gamma',
);
return { %common,
'numeric' => 'one two three',
}->{$_[0]};
}
print &foo('alphabet');
English