while (条件式){
  実行する処理1;
  実行する処理2;
}

my $count;

$count = 0;
while ($count < 2){
  print "count = $count \n";
  $count ++;
}

print "以上です";

1)変数「$count」を初期化し、0を格納
2)while文の条件式を評価
3)条件式が真のため、ブロック内を実行
4)「count = 0」を出力
5)変数「$count」に格納されている値を1だけ増加し1にする

1)while文の条件式を評価
2)条件式が真のため、ブロック内を実行
3)「count = 1」を出力
4)変数「$count」に格納されている値を1だけ増加し2にする

1)while文の条件式を評価
2)条件式が偽のため、while文は終了
3)「以上です」を出力

サンプルプログラム

# while文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $count;

$count = 0;
while ($count < 2){
  print "count = $count \n";
  $count ++;
}

print "以上です\n";

[xxxxxxxx@dddddddddd For]$ perl test1-1_u.pl | nkf -w
count = 0 
count = 1 
以上です
[xxxxxxxx@dddddddddd For]$ 

until (条件式){
  実行する処理1;
  実行する処理2;
}

my $count;

$count = 0;
until ($count >= 2){
  print "count = $count \n";
  $count ++;
}

print "以上です";

my $count;

$count = 0;
while (!($count >= 2)){
  print "count = $count \n";
  $count ++;
}

print "以上です";

サンプルプログラム

# until文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $count;

$count = 0;
until ($count >= 2){
  print "count = $count \n";
  $count ++;
}

print "以上です\n";

[xxxxxxxx@dddddddddd For]$ perl test2-1_u.pl | nkf -w
count = 0 
count = 1 
以上です
[xxxxxxxx@dddddddddd For]$ 

my $count;

$count = 0;
while ($count < 10){
  # 何かの処理
  $count ++;
}

for (初期化; 条件式; インクリメント){
  実行する処理1;
  実行する処理2;
}

my $count;

for ($count = 0; $count < 10; $count++){
  print "count = $count \n";
}

for (my $count = 0; $count < 10; $count++){
  print "count = $count \n";
}

サンプルプログラム

# for文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

for (my $count = 0; $count < 5; $count++){
  print "count = $count \n";
}

[xxxxxxxx@dddddddddd For]$ perl test3-1_u.pl | nkf -w
count = 0 
count = 1 
count = 2 
count = 3 
count = 4 
[xxxxxxxx@dddddddddd For]$ 

for (初期化; 条件式; インクリメント){
  実行する処理1;
  実行する処理2;
}

my $count;

for ($count = 0;; $count++){
  print "count = $count \n";
}

my $count = 0;

for (;;){
  print "count = $count \n";
  $count++
}

foreach 変数 (リスト){
  実行する処理1;
  実行する処理2;
}

my @fruit = ("りんご", "メロン", "イチゴ");

foreach my $name (@fruit){
  print "$name\n";
}

サンプルプログラム

# foreach文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @fruit = ("りんご", "メロン", "イチゴ");

foreach my $name (@fruit){
  print "$name\n";
}

[xxxxxxxx@dddddddddd For]$ perl test5-1_u.pl | nkf -w
りんご
メロン
イチゴ
[xxxxxxxx@dddddddddd For]$ 

for文とforeach文の関係

サンプルプログラム

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @fruit = ("りんご", "メロン", "イチゴ");

for my $name (@fruit){
  print "$name\n";
}

[xxxxxxxx@dddddddddd For]$ perl test5-2_u.pl | nkf -w
りんご
メロン
イチゴ
[xxxxxxxx@dddddddddd For]$ 

foreach 変数 (リスト){
  実行する処理1;
  実行する処理2;
}

foreach (リスト){
  実行する処理1;
  実行する処理2;
}

my @fruit = ("りんご", "メロン", "イチゴ");

foreach (@fruit){
  print "$_\n";
}

サンプルプログラム

# foreach文で制御変数を省略
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @fruit = ("りんご", "メロン", "イチゴ");

foreach (@fruit){
  print "$_\n";
}

[xxxxxxxx@dddddddddd For]$ perl test6-1_u.pl | nkf -w
りんご
メロン
イチゴ
[xxxxxxxx@dddddddddd For]$ 

last;

my $count = 1;

while (1){
  print "$count\n";
  $count++;

  if ($count > 5){
    last;
  }
}
print "終了\n";

サンプルプログラム

# last演算子
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $count = 1;

while (1){
  print "$count\n";
  $count++;

  if ($count > 5){
    last;
  }
}
print "終了\n";

[xxxxxxxx@dddddddddd For]$ perl test7-1_u.pl | nkf -w
1
2
3
4
5
終了
[xxxxxxxx@dddddddddd For]$ 

next;

my $count = 0;

while ($count <= 5){
  $count++;

  if ($count == 2){
    next;
  }

  print "$count\n";

  #next演算子が実行されるとこの位置に進む
}
print "終了\n";

サンプルプログラム

# next演算子
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $count = 0;

while ($count <= 5){
  $count++;

  if ($count == 2){
    next;
  }

  print "$count\n";
  
  #next演算子が実行されるとこの位置に進む
}
print "終了\n";

[xxxxxxxx@dddddddddd For]$ perl test8-1_u.pl | nkf -w
1
3
4
5
6
終了
[xxxxxxxx@dddddddddd For]$ 

redo;

my $count = 0;

while ($count <= 5){
  #redo演算子が実行されるとこの位置に進む

  $count++;

  if ($count == 2){
    redo;
  }

  print "$count\n";
}
print "終了\n";

サンプルプログラム

# redo演算子
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $count = 0;

while ($count <= 5){
  #redo演算子が実行されるとこの位置に進む

  $count++;

  if ($count == 2){
    redo;
  }

  print "$count\n";
}
print "終了\n";

[xxxxxxxx@dddddddddd For]$ perl test9-1_u.pl | nkf -w
1
3
4
5
6
終了
[xxxxxxxx@dddddddddd For]$ 

last ラベル;
next ラベル;
redo ラベル;

ラベル: while (条件式){
  # 何らかの処理
}

CALC: for (my $i = 1; $i < 10; $i++) {
  for (my $j = 1; $j < 10; $j++){
    my $calc = $i * $j;
    print "$i * $j = $calc\n";

    if ($calc > 10){
      last CALC;
    }
  }
}

サンプルプログラム

# 繰り返し処理にラベルを付ける
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

CALC: for (my $i = 1; $i < 10; $i++){
  for (my $j = 1; $j < 10; $j++){
    my $calc = $i * $j;
    print "$i * $j = $calc\n";

    last CALC if $calc > 10;
  }
}
print "終了\n";

[xxxxxxxx@dddddddddd For]$ perl test10-1_u.pl | nkf -w
1 * 1 = 1
1 * 2 = 2
1 * 3 = 3
1 * 4 = 4
1 * 5 = 5
1 * 6 = 6
1 * 7 = 7
1 * 8 = 8
1 * 9 = 9
2 * 1 = 2
2 * 2 = 4
2 * 3 = 6
2 * 4 = 8
2 * 5 = 10
2 * 6 = 12
終了
[xxxxxxxx@dddddddddd For]$ 

真の時に実行する処理 while 条件式;
真の時に実行する処理 until 条件式;
実行する処理 foreach 条件式;

my @fruit = ("りんご", "メロン", "イチゴ");

print "$_\n" foreach @fruit;

my @fruit = ("りんご", "メロン", "イチゴ");

foreach (@fruit){
  print "$_\n";
}

サンプルプログラム

# 式修飾子
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @fruit = ("りんご", "メロン", "イチゴ");

print "$_\n" foreach @fruit;

[xxxxxxxx@dddddddddd For]$ perl test11-1_u.pl | nkf -w
りんご
メロン
イチゴ
[xxxxxxxx@dddddddddd For]$