Perlでの不思議な現象 -OKWave

ActivePerl で試しました. ぱっと見た感じ, 0->[0] を $0[0] と解釈しているような気がします. 0 だとわかりにくいのですが, 1->[0] = 1; print keys %::, "\n"; と 1行目のないバージョンを見てみると, 1行目があることにより「1」というキーが増えていることが確認できます. 参照している方の質問 (しまった, 無視してた....) でも同じ現象が起きていると考えられます. ちなみに あっちの #3 はほぼ正解なのですが, :: ではなく main:: を調べたためにわからなくなっているものと想像されます. ちなみに a->[0] = 1; とやると, 今度こそ main:: に入っていることも確認できます.

[otsune]

perl -MO=Deparse -le '0->[0] = 100; print 0->[0];' すりゃ分かる