#!/usr/bin/perl

for($a=0; $a<5; $a++){
  print"Hello World!\n";    #5回出力
}

#!/usr/bin/perl

$a=0;

while($a<5){
  print"Hello World!\n";    #5回出力
  $a++;
}

#!/usr/bin/perl

%a=("a","i","b","ro",30,"ha");    #連想配列を一度に定義

while(($key,$value)=each(%a)){    #1組のキーと値を取り出す
  print"$key=$value\n";           #すべての要素を取り出すと空リストを返す
}

#!/usr/bin/perl

for($a=0; $a<10; $a++){
  if($a<5){
    print"$a ";  #$aが5未満なら表示
  }else{
    print"? ";   #$aが5以上なら表示
  }
}

print("\n");

#!/usr/bin/perl

for($a=0; $a<10; $a++){
  unless($a<5){    #$aが5より小さくなければ
    print"$a ";
  }else{
    print"? ";
  }
}

print("\n");

#!/usr/bin/perl

@a=("tanaka","suzuki","yamada");

foreach $b (@a){    #@aの要素を順次$bに代入
  print"$b san\n";
}

#!/usr/bin/perl

$a=0;

while($a<20){
    if($a>5){
        last;    #whileの後の行へ
    }
    print "$a\n";
    $a++;
}
                 #ここまで移動
print "last line\n";

#!/usr/bin/perl

$a=0;

A: while($a<20){
    $b=2;
    while($b>0){
        if($a>3){
            last A;    #ラベルAの付いたwhileの後の行へ
        }
        print"b=$b\n";
        $b--;
    }
    print "a=$a\n";
    $a++;
}
#ここまで移動
print "last line\n";

#!/usr/bin/perl

$a=0;

while($a<10){
    $a++;
    print "#";
    if($a>3){
            next;    #whileの最後の行へ
    }
    print "a=$a\n";
#ここまで移動
}
print "last line\n";

#!/usr/bin/perl

$a=0;

while($a<4){
#ここまで移動
    $a++;
    print "#";
    if($a<3){
            redo;    #whileの最初の行へ。条件式を評価しない
    }
    print "a=$a\n";
}
print "last line\n";