■配列関数
・push()関数とpop関数
リストの右側に対して操作を行い新しい値を追加（psuh）したり削除(pop)する。
・shift()関数とunshift()関数
リストの左側に対して操作を行い新しい値を追加（unshift）したり削除(shift)する。
・reverse関数
配列の要素を反転させる
・sort関数
sort関数は指定された引数を文字列として扱ってASCIIコードの昇順に並べ書いた結果をリストする。
#!/bin/perl
# 配列の初期化
for $i (0..9) {
$array[$i] = $i;
}
STDOUT(@array);
unshift(@array, "A");
STDOUT(@array);
shift(@array);
STDOUT(@array);
STDOUT(reverse(@array));
@array[0,1,2,3,4,5,6,7,8,9]=@array[1,2,1,4,6,4,6,7,0,9];
STDOUT(@array);
push(@array, "A", "B", "ABC");
STDOUT(@array);
STDOUT(sort(@array));
exit(0);
sub STDOUT {
my @array = @_;
while(@array) {
print "$array[0] ";
shift(@ar ray);
}
print "\n";
} |
実行結果
0 1 2 3 4 5 6 7 8 9 A 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 9 8 7 6 5 4 3 2 1 0 1 2 1 4 6 4 6 7 0 9 1 2 1 4 6 4 6 7 0 9 A B ABC 0 1 1 2 4 4 6 6 7 9 A ABC B |