- 2006/08/24 Thu
-
Referer:
記憶装置関係の方でメリケンから送られてきたサンプルの解析したり、鉄道関係の方はリリースを電話で急かされて適当にあしらったり、逆に新規着手する他社局の資料送付を電話で要求したり。 ハッシュのリファレンスをサブルーチンでデリファレンスしてリストのリファレンスを追加して戻るとリストはどうなるのんと思ったらリファレンスがあれば保持されるのか。sub foo(\%) { my($foo) = @_; @{$$foo{'bar'}} = ('bar', 'foo'); } { my %foo = (foo=>['foo', 'bar']); foo(%foo); print $foo{'foo'}->[0]; print $foo{'bar'}->[$#{$foo{'bar'}}]; } # foofoo