Perlコーディング初心者質問スレ Part 40
■ このスレッドは過去ログ倉庫に格納されています
自己解決しました。
foreach $tmp2 ( keys %$tmp1 ) {
print qq($tmp2=$tmp1->{$tmp2},);
}
これで解決しました。
…ところで、サブルーチンの中の
$ref->[1]->{'a'} = "A1"; 等は
$ref->[1]{'a'} = "A1"; でも同じ結果なのですが
どうしてなのでしょうか？
■ このスレッドは過去ログ倉庫に格納されています