今まで変数のリファレンスを取得するためには,わざわざリファレンス変数に代入してから使っていた. こうすれば変数宣言と同時にリファレンスを取得できるみたい. \ my %hash; 確認プログラム my $hoge_ref = \ my %hoge; %hoge = (yamada => 1, tanaka => 2, sato => 3); while ( my ($key, $val) = each %$hoge_ref ){ print "$key:$val\n"; } __End__ # 出力結果 yamada:1 sato:3 tanaka:2 リファレンス渡しの関数を呼び出すときに今までよりも一行少なくて済みそう. 日経ソフトウェア2008年4月号のパソコン甲子園の問題を解く連載.今回はブラックジャックの手札が与えられた際に点数を返すというもの. とても時間がかかりました.けれど
![2008-02-23](https://cdn-ak-scissors.b.st-hatena.com/image/square/06a15c64ba0ceec233d86d71001ebb29a9dcbf5d/height=288;version=1;width=512/https%3A%2F%2Fcdn.blog.st-hatena.com%2Fimages%2Ftheme%2Fog-image-1500.png)