t^ÃTvR[h
---------------------
ڎiy[Wԍj
P259
P265
---------------------
P259
# t|[h@gvZ
#  calculator.pl

              "2 3 +",
              "2 3 -",
              "2 3 *",
              "2 3 /",
              "2 3 + 2 /",
              "2 3 - 2 +",
              "2 3 * 2 -",
              "2 3 / 2 *",
              );

foreach $string (@calcarray) {
  # Xy[Xŕ
  @numbers = split(/ /, $string);
  # ʂϐ
  $result = 0;

  # vfo
  for ($i = 0; $i < @numbers; $i ++) {
    if ($i = 0) {
      # ŏ̗vf
      $result = $value = $numbers[$i];
      next;
    }
    # Z
    $result += $value if ($numbers[$i] eq '+');
    # Z
    $result = $value if ($numbers[$i] eq '-');
    # Z
    $result *= $value if ($numbers[$i] eq '*');
    # Z
    $result /= $value if ($numbers[$i] eq '/');

    # Zl
    $value = $numbers[$i] if ($numbers[$i] =~ /[\d\.\-]+/);
  }
  # ʂ̕\
  print "$string =:\t$result\n";
}

P265
# t|[h@gvZ
#  calculator.pl

              "2 3 +",
              "2 3 -",
              "2 3 *",
              "2 3 /",
              "2 3 + 2 /",
              "2 3 - 2 +",
              "2 3 * 2 -",
              "2 3 / 2 *",
              );

foreach $string (@calcarray) {
  # Xy[Xŕ
  @numbers = split(/ /, $string);
  # ʂϐ
  $result = 0;

  # vfo
  for ($i = 0; $i < @numbers; $i ++) {
    if ($i == 0) {
      # ŏ̗vf
      $result = $value = $numbers[$i];
      next;
    }
    # Z
    $result += $value if ($numbers[$i] eq '+');
    # Z
    $result -= $value if ($numbers[$i] eq '-');
    # Z
    $result *= $value if ($numbers[$i] eq '*');
    # Z
    $result /= $value if ($numbers[$i] eq '/');

    # Zl
    $value = $numbers[$i] if ($numbers[$i] =~ /[\d\.\-]+/);
  }
  # ʂ̕\
  print "$string =:\t$result\n";
}
