Perl/CGI入門: ハッシュeach関数の例題について

質問

• ハッシュのeach関数を使ったプログラムの説明
• while文の条件部分に代入式が入る理由
• $keyと$valのスカラー変数との違いについて

回答No.1

noname#25358

Ｃ言語もそうなんですが、Perl の条件式の特徴は、「比較と代入を同時に行える」という点です。そのために、比較演算子（＝＝）と代入演算子（＝）が別になってるんです。

　このとき、比較式を記述しなければならない場所（今回の場合は while の中）に代入式だけを記述すると、Perl は自動的に、「代入された値が真か偽か」によって判定を行います。

　真とは、０以外の数値や、undefine、または null ではない文字など、何かを処理するのに適した値です。
　逆に偽とは、０、undefine、null です。

　each は、ファイルの読み込みと同じようにハッシュ変数の中身を、呼び出すごとに順番に「配列として」返す変数で、すべての配列を呼び出し終わると null を返します。
　ですので、正常なデータが返されているうちは、while はそれを「真」であると解釈し処理を繰り返しますが、each が null を返すと、すべての処理が終わったのだと解釈し、ループを抜けるわけです。

　それから、($key, $val) という記述ですが、こんな記述ができるのは、俺が知る中では Perl だけです。（マイナーな言語には他にもこれができるものがあるようですが）
　Perl の関数が「配列」という巨大なデータを返すとき、それを受け取るための手法の１つがこの書き方です。
　通常は配列を返す関数に関しては、受け取り側も配列を記述するのが普通です。

　　@kv = each( %list );

　この書き方をすれば、$kv[0]、$kv[1] にそれぞれ値が入りますが、これでは少し面倒です。
　そこで、Perl では、($key, $value) という括弧そのものを、「１つの仮的な配列」として扱うことができるのです。
　ですのでこの処理が終わってしまえば、$key も $value もそれぞれスカラー変数として扱えます。

　これを利用すれば、

　　($a, $b) = ($b, $a);

　という記述も出来ます。これは、$a と $b の中身を入れ替えるという処理です。

　説明が長くなってしまったので、不明点は別途補足ください(^_^;

お礼

ありがとうございます！条件が真か偽で判断することを忘れていたのと、リスト書式で代入が出来るということを知らなかったのが原因でした。
しかしそうすると each(%list) が返すのは (猫,cat) という書式のものと考えて正解ですか？しかし、 print each(%list); と書くと表示されるのは「猫cat」というようにキーと値がそのまま横に並んだものです。
なんかイマイチ納得できないです・・

補足

補足というか追加質問になってしまうのですが、次のような例文がありました。

foreach $key(keys(%list)){
　　$val = $list{$key};
　　print "$keyは$val";
}

この中にある、$list{$key} という部分ですが、これはハッシュの要素へのアクセスを示す $ハッシュ名{'キー名'} でしょうか？