3͂̃TvR[h
---------------------
ڎiy[Wԍj
P46
P47-1
P47-2
P50
P51-1
P51-2
P53
P54
P55-1
P55-2
P59
P60
P62
P63
---------------------

P46
# switchXe[gg̃G~[g
#  switch.pl

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

if ($number == 0) {
  print "";
} elsif ($number == 1) {
  print "";
} elsif ($number == 2) {
  print "";
} elsif ($number == 3) {
  print "O";
} elsif ($number == 4) {
  print "l";
} else {
  print "4ȉ̐͂ĂB";
}
print "\n";

P47-1
# ȒPȃNCYXNvg
#  quiz.pl

print "2 + 3 ͂ɂȂ܂: ";

# [U[̓͂҂
$answer = <STDIN>;

# s
chomp($answer);

# 𕪊
if ($answer == 5) {
  # ==́uvӖ
  # 5ɓƂ
  print "ł!\n";
} else {
  # 5ɓȂƂ
  print "˂A͂łB\n";
}

P47-2
# ȒPȃNCYXNvg
#  quiz_unless.pl

print "2 + 3 ͂ɂȂ܂: ";

# [U[̓͂҂
$answer = <STDIN>;

# s
chomp($answer);

# 𕪊
unless ($answer != 5) {
  # !=́uȂvӖ
  # u5ɓȂvÛƂA܂u5ɓvƂ
  print "ł!\n";
} else {
  # u5ɓȂv^̂Ƃ
  print "˂A͂łB\n";
}

P50
# JEg_E
#  countdown.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# $number̒l0ȏ̊ԌJԂ
while ($number >= 0) {
  print "l: $number\n";
  # numberfNg
  $number--;
}

P51-1
# JEg_E
#  countdown_until.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# $number̒l0菬Ȃ܂ŌJԂ
until ($number < 0) {
  print "l: $number\n";
  # numberfNg
  $number--;
}

P51-2
# JEg_E
#  countdown_while.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# Kx͎s
do {
  print "l: $number\n";
  # numberfNg
  $number--;
  # $number̒l0ȏ̊ԌJԂ
} while ($number >= 0);

P53
# w肵܂ŃJEgAbv
#  for.pl

print "l͂Ă: ";
$max = <STDIN>;
chomp($max);

# 1`$max܂ŌJԂ
for ($number = 1; $number <= $max; $number++) {
  print "l: $number\n";
}

P54
# w肵܂ŕ\
#  while_for.pl

print "l͂Ă: ";
$max = <STDIN>;
chomp($max);

$number = 1;

# $max܂ŌJԂ
while ($number <= $max) {
  print "l: $number\n";
  $number++;
}

P55-1
# w肵܂ł\A4̂Ƃ͔΂
#  for_skip.pl

print "l͂Ă: ";
$max = <STDIN>;
chomp($max);

for ($number = 1; $number <= $max; $number++) {
  if ($number == 4) {
    # $number4̂Ƃ1CNg
    $number = 5;
  }
  print "l: $number\n";
}

P55-2
# 3̌ʂ̕ϐforXe[ggɎgp
#  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
# nextAredoAlastAexit̃eXg
#  next_redo_last.pl

# 1͐^Ӗ̂ŁAivɌJԂ
while (1) {
  # whileɂ郋[v
  print "while[v\n";
    # forɂ郋[v
  for ($i = 0; $i < 100; $i++) {
    print "for[vJEg: $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
# d[v甲
#  label.pl

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

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

    # LOOP3`
    LOOP3: while (1) {
      print "LOOP3Jn\n";
      print "ړ郋[vԍ͂Ă: ";
      $number = <STDIN>;
      chomp($number);
      if ($number == 1) {
        # LOOP1̐擪
        next LOOP1;
      } elsif ($number == 2) {
        # LOOP2̐擪
        next LOOP2;
      } elsif ($number == 3) {
        # LOOP3̐擪
        next LOOP3;
      } else {
        # LOOP1̊O
        last LOOP1;
      }
    }
  }
}

P62
# ?ZqgNCYXNvg
#  quiz_shortif.pl

print "2 + 3 ͂ɂȂ܂: ";

# [U[̓͂҂
$answer = <STDIN>;

# s
chomp($answer);

# ?ZqŔ
print (($answer == 5) ? "ł!\n" : 
  "˂A͂łB\n");

P63
# Xe[ggCq̃eXg
#  statement.pl

print "l͂Ă: ";
$number = <STDIN>;
chomp($number);

# 5傫΃Xe[ggs
print "5傫\n" if ($number > 5);

# 0ȊOȂXe[ggs
print "0ł͂Ȃ\n" unless ($number == 0);

# 10菬ԃXe[ggs
print ("CNg", $number++, "\n") while 
  ($number < 10);

# 5菬Ȃ܂ŃXe[ggs
print ("fNg", $number--, "\n") until 
  ($number < 5);
