第4章 ハッシュ変数

4-1. ハッシュ変数とは

• ハッシュとは、連想配列とも呼ばれ、「キー」と「値」を1組のペアとして関連付けされた配列です。ただし、配列自体は順序付けされていないところに特徴があります。
• ハッシュの変数のことを、ハッシュ変数といい、% (パーセント) + 英字1文字から始まり、それ以降は数字、英字およびアンダースコア ( _ ) を用いることができます。また大文字と小文字が区別されますので、たとえば %a と %A は別物として扱われます。

4-2. ハッシュ変数の操作

• ハッシュ変数は、キーと値をペアにして、数値や文字列を代入します。
  
  

  構文例 意味 %fruit = ("red", "apple", "yellow", "banana"); %fruit に red と apple 及び yellow と banana という文字列をそれぞれのペアで代入

  
  
  また、このように定義したハッシュは読みづらいことがあるので、Perl5に限ってコンマの代わりに、=> (等号、大なり) という区切り記号が用意されています。これを使うことで、キーと値の違いを明確にあらわすことができます。
  
  

  パターン1 %fruit = ("red", "apple", "yellow", "banana"); パターン2 %fruit = (       "red" => "apple",       "yellow" => "banana", );

  
  
  
• ハッシュ変数の中の各要素（各ペア）は、$ハッシュ変数名 { キー } という形式で、それに対応する「値」を参照することができます。
  
  以下の表の場合、パターン1とパターン2は、まったく同じ意味になります。
  
  

  パターン1 %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); パターン2 $fruit{"red"} = "apple"; $fruit{"yellow"} = "banana"; $fruit{"purple"} = "grape";

  
  
  ハッシュ変数の各要素には、「キー」を指定することで「値」にアクセスすることができます。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); print "$fruit{'red'}\n"; <出力結果> apple

4-3. ハッシュ関数

• ハッシュを操作するための関数として、次のような関数が用意されています。
  
  

  関数 意味 keys すべてのキーを取り出す values すべての値を取り出す each 1組のキーと値を取り出す delete 特定の要素を取り除く

  
  
  
• keys
  
  すべてのキーを取り出します。取り出された配列の順序は一定でないことに注意します。これはハッシュが順序付けられた配列でないためです。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); @file = keys (%fruit); print "@file\n"; <出力結果> purple yellow red

  
  
  
• values
  
  すべての値を取り出します。keys関数同様、取り出された配列の順序は一定ではありません。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); @file = values (%fruit); print "@file\n"; <出力結果> grape banana apple

  
  
  
• each
  
  1組のキーと値を取り出します。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); ($key, $val) = each (%fruit); print "キー $key 値 $val\n"; <出力結果> キー purple 値 grape

  
  
  しかしながら、上記の場合、どのペアが取り出されるかが不定であり、しかも1組だけが抽出されるので、通常 each関数の場合は次のようにwhile構文と併用した形で使用されます。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); while ( ($key, $val) = each (%fruit) ) {        print "キー $key 値 $val\n"; } <出力結果> キー purple 値 grape キー yellow 値 banana キー red 値 apple

  
  
  
• delete
  
  特定の要素を取り除きます。変数によるキーを指定することで、そのキーと値のペアをハッシュから削除します。
  
  

  %fruit = ("red", "apple", "yellow", "banana", "purple", "grape"); delete $fruit{"yellow"}; while (($key, $val) = each (%fruit)) {        print "キー $key 値 $val\n"; } <出力結果> キー purple 値 grape キー red 値 apple