Perl - リストと配列

リストは、スカラー変数の集合に順序をつけて並べたもの。配列は、リストを保持する変数。

配列やリストは、0からふった番号（インデックス）でアクセスする事ができる。

配列にアクセスするには、要素を指定する。また未使用の配列要素はundefである。

$array[0] = "abc";
$array[1] = "def";
if (!defined($array[1000])
{
  print "undefです。\n";
}

配列に代入する際、インデックスをあけて代入した場合、代入していない要素の値は全てundefになる。

$array[0] = 1;
$array[1] = 2;
$array[99] = 100;
#この時、$array[2]～$array[98]はundefとなる

また、負の数でアクセスする事ができる。[-1]だと最後の要素の値にアクセスでき、-2、-3と末尾から順にアクセスできる。但し、扱える負の値は-3までである。

$array[0] = 1;
$array[1] = 2;
$array[2] = 3;
$array[3] = 4;
$array[4] = 5;
print "$array[-1]\n"; #5が表示
print "$array[-2]\n"; #4が表示
print "$array[-3]\n"; #3が表示

配列の最後のインデックスを知るには、$#配列名である（シェルから？）。但し、この値は最後の要素番号なので、実際の要素の数は[0]を足した数となる。

$array[0] = 1;
$array[1] = 2;
$array[2] = 3;
print "$#array\n";           #2が出力
print "$array[$#array]\n";   #3が出力
print "$array[-1]\n";        #3が出力

プログラム中でリスト値を記述するための表記法で値をコンマで区切って、括弧で囲んだもの。

(1, 2, 3)
(1, 2, 3,)  #最後のカンマは無視
()          #空リスト

左のスカラー値から、右のスカラー血までの範囲で１つずつ増加する値のリストを生成する。少数点は、切り捨てられリスト化される。

(1 .. 5)     #(1, 2, 3, 4, 5)
(1.7 .. 5.7) #(1, 2, 3, 4, 5)
(5 .. 1)     #空リスト 範囲演算子は増加のみ
(0, 1..4, 5) #(0, 1, 2, 3, 4, 5)

qwショートカットのリストは、シングルクォートで囲まれた文字列として扱う。リスト値は空白文字を捨てて、残ったものがリスト値とされる。また、デリミタは任意の記号が使える。

qw! abc def ghi !
qw{ abc def ghi }
qw# abc def ght #
qw/ abc def ghi /
qw! abc\! def\! ghi\! ! #バックスラッシュで終了にしない

リスト代入を行う際、代入する値(右辺)の方が多かった場合は、無駄な値は捨てられる。逆に左辺の方が多かった場合は、代入できないリスト値はundefとなる。

($array[0], $array[1]) = ("abc", "def");
($array[0], $array[1]) = ("abc", "def", "ghi");  #"ghi"は捨てられる
($array[0], $array[1]) = ("abc");                #array[1]はundef

@array = qw / abc def ght /;  #qwショートカット
@array = ();                  #空リスト
@array = 1..10;               #範囲演算子
@array = (1..4, undef, 6..9); #undefで明示する。$array[4]はundef
@array = (1..4, @tmp, 6..9);  #配列を使う事もできる

pop演算子は配列から最後の要素を取り出して、その値を返す。注意しなければいけないのは、取り出した際に配列の要素数は１個減る。

@array = 0..4;
$val = pop(@array);       #$valは4、@arrayは(0, 1, 2, 3)
$val = pop @array;        #$valは3、@arrayは(0, 1, 2) 括弧はなくても可
pop @array;               #無効コンテキスト。返した値をどこにも格納しない。@arrayは(0, 1)
push (@array, 3);         #@arrayは(0, 1, 2, 3);
push @array, 4;           #@arrayは(0, 1, 2, 3, 4);
push @array, 5..9;        #@arrayは(0..9);

shift演算子は配列の先頭の値を取り出し、unshift演算子は配列の先頭に値を追加する。

@array = qw / 0..3 /;
$val = shift (@array);    #$valは0, @arrayは(1, 2, 3)
$val = shift @array;      #$valは1, @arrayは(2, 3)
shift @array;             #@arrayは(3)
unshift (@array, 2);      #@arrayは(2,3)
unshift @array, 1;        #@arrayは(1, 2,3)

配列の要素を指定しないで、ダブルクォートで囲むとスペースをはさんで全ての要素の値が展開される。要素を指定すれば、その要素の値を展開する事ができる。

@array = qw / abc def ghi /;
$array = "array";
print "@array";               #全ての展開
print "\@array";              #@arrayと表示
print "$array[0]\n";          #abcと表示
print "${array}[0]\n";        #array[0]と表示
print "$array" . "[0]\n";     #array[0]と表示
print "$array\[0]\n";         #array[0]と表示

値のリストを受け取り、それぞれの値に対して1回ずつブロックを実行する。

foreach $tmp (qw / abc def ghi / )
{
  print "$tmp\n";
}

制御変数の値はループを抜けた時点で、元の値に戻る(初期化していなければ、undef)

@array = qw / abc def ghi /;
foreach (@array)
{
  print "$_";
  #尚、printで出力する際、$_も省略する事ができる。
  #print ;
}

@array = qw / def ghi abc /;
@s_arrray = sort @array;
@s_array = sort(@array);

reverse演算子もsort演算子も受け取るリスト(配列)の値は、不変である。返した値に対してのみreverse,sortが働く。