わいえむねっと

Contents
Categories
Search
Calendar
2006/08
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
Monthly Archives
～2000/01
Recent Entries
RSS1.0
Templates
Information
Processed: 0.016 sec
Chashed: -
2006/08/24 Thu
ハッシュのリファレンスをサブルーチンでデリファレンスしてリストのリファレンスを追加して戻るとリストはどうなるのんと思ったらリファレンスがあれば保持されるのか。

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