第3章 リストと配列

3-1. リストと配列とは

• リストとは、スカラーに順番をつけて並べたもので、そのリストの中でのスカラーの位置によって自由にアクセスすることができます。そして、このリストを変数にしたものを、配列といいます。
• 配列の名前は、@ (アットマーク) + 英字1文字から始まり、それ以降は数字、英字およびアンダースコア ( _ ) を用いることができます。また大文字と小文字が区別されますので、たとえば @a と @A は別物として扱われます。
  
  

  変数名に使用できる文字 @abc123 ○　変数名として使用可能。 @123abc ×　数字で始まることはできない。 @abc_123 ○　アンダースコアは使用可能。 @abc-123 ×　ハイフンは使用することはできない。

3-2. 配列演算子

• 配列には、数値や文字列を代入することができます。
  
  

  構文例 意味 @x = (1, 2, 3); @x に 1, 2, 3 をこの順序で代入 (数値) @y = ("apple", "orange"); @y に apple と orange をこの順序で代入 (文字列) @z = ($a, $b, $c); @z に $a, $b, $c をこの順序で代入 (変数)

  
  
  
• 変数で構成されたリストに対して、リスト値を代入することができます。
  
  

  構文例 意味 ($x, $y, $z) = (1, 2, 3); $x, $y, $z にそれぞれ 1, 2, 3 を代入 ($a, $b) = ("banana", "melon"); $a に banana を、$b に melon を代入 ($a, $b) = ($b, $a); $a と $b の値を入れ換え

  
  
  
• 配列の中の各要素は、$配列名 [ 添え字 ] という形式で表すことができます。
  
  配列の添え字は 0 から始まります。したがって、配列の1番目から3番目の要素にアクセスするには、0 から 2 までを添え字として使用することになります。
  以下の表の場合、パターン1とパターン2は、まったく同じ意味になります。
  
  

  パターン1 @fruit = ("apple", "orange", "banana"); パターン2 $fruit[0] = "apple"; $fruit[1] = "orange"; $fruit[2] = "banana";

  
  
  配列の各要素には、添え字を指定することで、以下のようにしてアクセスすることができます。
  
  

  @fruit = ("apple", "orange", "banana"); print "$fruit[1]\n"; <出力結果> orange

  
  
  
• 配列末尾の要素の添え字は、$#変数名 という変数で表すことができます。
  
  

  @fruit = ("apple", "orange", "banana"); $num = $#fruit + 1; print "この配列の要素は$num個あります。\n"; <出力結果> この配列の要素は3個あります。

  
  
  
• 配列の個数は、左辺のスカラー変数に代入することができます。
  
  

  @fruit = ("apple", "orange", "banana"); $num = @fruit; print "この配列の要素は$num個あります。\n"; <出力結果> この配列の要素は3個あります。

  
  
  
• また、以下のようにして、配列に代入し要素を追加することができます。
  
  

  @fruit = ("apple", "orange", "banana"); @fruit = (@fruit, "grape"); print "@fruit\n"; <出力結果> apple orange banana grape

3-3. 配列関数

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

  関数 意味 push 配列の末尾へ要素を追加 pop 配列の末尾の要素を削除 unshift 配列の先頭へ要素を追加 shift 配列の先頭の要素を削除 reverse 配列の順序を逆順にする sort 配列の順序をソートする

  
  
  
• push
  
  配列の末尾へ要素を追加します。
  
  

  @char = ("A", "B", "C"); push(@char, "D"); print "@char\n"; <出力結果> A B C D

  
  
  
• pop
  
  配列の末尾の要素を削除します。
  
  

  @char = ("A", "B", "C"); pop(@char); print "@char\n"; <出力結果> A B

  
  
  
• unshift
  
  配列の先頭へ要素を追加します。
  
  

  @char = ("A", "B", "C"); unshift(@char, "D"); print "@char\n"; <出力結果> D A B C

  
  
  
• shift
  
  配列の先頭の要素を削除します。
  
  

  @char = ("A", "B", "C"); shift(@char); print "@char\n"; <出力結果> B C

  
  
  
• reverse
  
  配列の順序を逆順にします。
  
  

  @char = ("A", "B", "C"); @char = reverse(@char); print "@char\n"; <出力結果> C B A

  
  
  
• sort
  
  文字列、数値および昇順、降順によって4パターンのソートが存在します。
  
  (1) 文字列としてソート（昇順）
  
  

  @char = ("C", "A", "D", "B"); @char = sort(@char); print "@char\n"; <出力結果> A B C D

  
  
  (2) 文字列として逆ソート（降順）
  
  

  @char = ("C", "A", "D", "B"); @char = sort { $b cmp $a } (@char); print "@char\n"; <出力結果> D C B A

  
  
  (3) 数値としてソート（昇順）
  
  

  @char = (3, 1, 4, 2); @char = sort { $a <=> $b } (@char); print "@char\n"; <出力結果> 1 2 3 4

  
  
  (4) 数値として逆ソート（降順）
  
  

  @char = (3, 1, 4, 2); @char = sort { $b <=> $a } (@char); print "@char\n"; <出力結果> 4 3 2 1