ハッシュリファレンスの未定義

質問

サブルーチン／ハッシュリ／ファレンスで悩んでいます。
my (@r);
$r[1]{"A"} = "1-A"; # 代入
&s(\@r);
print $r[1]{"A"},"\n"; # 参照
print $r[2]{"B"},"\n"; # 参照 サブルーチン側でできない。
#
sub s() {
my ($c)=@_;
@$c[1]->{"A"} = "1111-AAAA"; # もちろん代入できる
@$c[2]->{"B"} = "2-B"; # 代入 これができない（ハッシュリファレンスの未定義エラー）
}

サブルーチン側で新規ハッシュのところに代入ができないのですが
どのようにすればいいのでしょうか。

回答No.1

zxcv0000 · ベストアンサー

@$c[1]->{"A"} とか @$c[2]->{"B"} とかの書き方が問題です。

暇があれば、@$c[2]->{"B"} が何と等価か、演算子の優先順位にもとづいて考てみましょう。

私の場合はそんな事考えるのは無駄と思う怠け者でして、悩まずに済むコードを書きます。

$c->[1]{"A"} = "1111-AAAA";
$c->[2]{"B"} = "2-B";

もしも深く考えたいなら、ヒントは ${$c}[2]{"B"} です。

お礼

ありがとうございます！
${$c}なんですね。
1次元のときは@$で書いていたので、型グロブが頭から離れませんでした。すっきりです。