3ϤΥץ륳
---------------------
ܼʥڡֹ
P46
P47-1
P47-2
P50
P51-1
P51-2
P53
P54
P55-1
P55-2
P59
P60
P62
P63
---------------------

P46
# switchơȥȤΥߥ졼
#  switch.pl

print "ͤ: ";
$number = <STDIN>;
chomp($number);

if ($number == 0) {
  print "";
} elsif ($number == 1) {
  print "";
} elsif ($number == 2) {
  print "";
} elsif ($number == 3) {
  print "";
} elsif ($number == 4) {
  print "";
} else {
  print "4ʲοϤƤ";
}
print "\n";

P47-1
# ñʥץ
#  quiz.pl

print "2 + 3 ϤĤˤʤޤ: ";

# 桼ϤԤ
$answer = <STDIN>;

# ʸ
chomp($answer);

# ʬ
if ($answer == 5) {
  # ==ϡפ̣
  # 5Ȥ
  print "Ǥ!\n";
} else {
  # 5ʤäȤ
  print "ͤ󡢤ϤǤ\n";
}

P47-2
# ñʥץ
#  quiz_unless.pl

print "2 + 3 ϤĤˤʤޤ: ";

# 桼ϤԤ
$answer = <STDIN>;

# ʸ
chomp($answer);

# ʬ
unless ($answer != 5) {
  # !=ϡʤפ̣
  # 5ʤפΤȤĤޤ5פȤ
  print "Ǥ!\n";
} else {
  # 5ʤפΤȤ
  print "ͤ󡢤ϤǤ\n";
}

P50
# ȥ
#  countdown.pl

print "ͤϤƤ: ";
$number = <STDIN>;
chomp($number);

# $numberͤ0ʾδַ֤
while ($number >= 0) {
  print ": $number\n";
  # numberǥ
  $number--;
}

P51-1
# ȥ
#  countdown_until.pl

print "ͤϤƤ: ";
$number = <STDIN>;
chomp($number);

# $numberͤ0꾮ʤޤǷ֤
until ($number < 0) {
  print ": $number\n";
  # numberǥ
  $number--;
}

P51-2
# ȥ
#  countdown_while.pl

print "ͤϤƤ: ";
$number = <STDIN>;
chomp($number);

# ɬ٤ϼ¹Ԥ
do {
  print ": $number\n";
  # numberǥ
  $number--;
  # $numberͤ0ʾδַ֤
} while ($number >= 0);

P53
# ꤷޤǥȥå
#  for.pl

print "ͤϤƤ: ";
$max = <STDIN>;
chomp($max);

# 1$maxޤǷ֤
for ($number = 1; $number <= $max; $number++) {
  print ": $number\n";
}

P54
# ꤷޤɽ
#  while_for.pl

print "ͤϤƤ: ";
$max = <STDIN>;
chomp($max);

$number = 1;

# $maxޤǷ֤
while ($number <= $max) {
  print ": $number\n";
  $number++;
}

P55-1
# ꤷޤǤɽ4ΤȤФ
#  for_skip.pl

print "ͤϤƤ: ";
$max = <STDIN>;
chomp($max);

for ($number = 1; $number <= $max; $number++) {
  if ($number == 4) {
    # $number4ΤȤ1ĥ󥯥
    $number = 5;
  }
  print ": $number\n";
}

P55-2
# 3Ĥθ̤ѿforơȥȤ˻
#  triple.pl

$number2 = 0;
$number3 = 1;

for ($number1 = 1; $number2 <= 50; $number3 += 3) {
  $number2 += $number1 * $number3;
  print "1: $number1\t2: $number2\t3: $number3\n";
  $number1++;
}

P59
# nextredolastexitΥƥ
#  next_redo_last.pl

# 1Ͽ̣Τǡʵפ˷֤
while (1) {
  # whileˤ롼
  print "while롼\n";
    # forˤ롼
  for ($i = 0; $i < 100; $i++) {
    print "for롼ץ: $i\n";

    # ֹ
    print "1. next  2. redo  3. last  4. exit :";
    $type =<STDIN>;
    chomp($type);

    if ($type == 1) {
      # 1ΤȤnext
      next;
    } elsif ($type == 2) {
      # 2ΤȤredo
      redo;
    } elsif ($type == 3) {
      # 3ΤȤlast
      last;
    } elsif ($type == 4) {
      # 4ΤȤexit
      exit(0);
    }
  }
}

P60
# ¿ť롼פȴ
#  label.pl

# LOOP1
LOOP1: while (1) {
  print "LOOP1\n";

  # LOOP2
  LOOP2: while (1) {
    print "LOOP2\n";

    # LOOP3
    LOOP3: while (1) {
      print "LOOP3\n";
      print "ư롼ֹϤƤ: ";
      $number = <STDIN>;
      chomp($number);
      if ($number == 1) {
        # LOOP1Ƭ
        next LOOP1;
      } elsif ($number == 2) {
        # LOOP2Ƭ
        next LOOP2;
      } elsif ($number == 3) {
        # LOOP3Ƭ
        next LOOP3;
      } else {
        # LOOP1γ
        last LOOP1;
      }
    }
  }
}

P62
# ?黻ҤȤäץ
#  quiz_shortif.pl

print "2 + 3 ϤĤˤʤޤ: ";

# 桼ϤԤ
$answer = <STDIN>;

# ʸ
chomp($answer);

# ?黻ҤȽ
print (($answer == 5) ? "Ǥ!\n" : 
  "ͤ󡢤ϤǤ\n");

P63
# ơȥȽҤΥƥ
#  statement.pl

print "ͤϤƤ: ";
$number = <STDIN>;
chomp($number);

# 5礭ХơȥȤ¹
print "5礭\n" if ($number > 5);

# 0ʳʤ饹ơȥȤ¹
print "0ǤϤʤ\n" unless ($number == 0);

# 10꾮֥ơȥȤ¹
print ("󥯥", $number++, "\n") while 
  ($number < 10);

# 5꾮ʤޤǥơȥȤ¹
print ("ǥ", $number--, "\n") until 
  ($number < 5);
