【Perl】while文で配列の内容をすべて出力する方法

【Perl】while文で配列の内容をすべて出力する方法

　配列の内容をすべて出力するには、配列の要素数を取得し、要素数を元に繰り返し処理を実施し、配列の内容をすべて出力できます。

　配列を変数に代入することで、配列の要素数を取得することができます。

　my $j = @mozihairetu; 5を配列の要素数である5を取得できます。

my @mozihairetu = ("test", "test2", "test3", "test4", "test5");
my $i = 0;
my $j = @mozihairetu;
while ($i < $j) {
    print "@mozihairetu[$i]\n";
    $i++;
}

// 実行結果
test
test2
test3
test4
test5

配列の内容を逆から出力する方法

　配列の内容をすべて出力するには、配列の要素数を取得し、要素数を元に繰り返し処理で配列の中身を順次出力してきます。

出力する配列の添え字を[$j – $i -1]とすることで、配列の内容を逆から出力できます。

my @mozihairetu = ("test", "test2", "test3", "test4", "test5");
my $i = 0;
my $j = @mozihairetu;
while ($i < $j) {
    print "@mozihairetu[$i]\n";
    $i++;
}

// 実行結果
test5
test4
test3
test2
test

shiftで要素を一つずつ取りだし配列の内容を出力する

　配列の中身を取り出しカラとなることに問題がない場合、shift 文で配列の内容を出力することができます。

my @mozihairetu = ("test", "test2", "test3", "test4", "test5");
my $i = 0;
my $j = @mozihairetu;
while (my $mozi = shift @mozihairetu) {
    print "$mozi\n";
}

// 実行結果
test
test2
test3
test4
test5

Perl の記事一覧へ