ϿAΥץ륳
---------------------
ܼʥڡֹ
P259
P265
---------------------
P259
# եݡˡȤä׻
#  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) {
  # ڡʸʬ
  @numbers = split(/ /, $string);
  # ̤ѿ
  $result = 0;

  # ǤФ
  for ($i = 0; $i < @numbers; $i ++) {
    if ($i = 0) {
      # ǽ
      $result = $value = $numbers[$i];
      next;
    }
    # û
    $result += $value if ($numbers[$i] eq '+');
    # 
    $result = $value if ($numbers[$i] eq '-');
    # 軻
    $result *= $value if ($numbers[$i] eq '*');
    # 
    $result /= $value if ($numbers[$i] eq '/');

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

P265
# եݡˡȤä׻
#  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) {
  # ڡʸʬ
  @numbers = split(/ /, $string);
  # ̤ѿ
  $result = 0;

  # ǤФ
  for ($i = 0; $i < @numbers; $i ++) {
    if ($i == 0) {
      # ǽ
      $result = $value = $numbers[$i];
      next;
    }
    # û
    $result += $value if ($numbers[$i] eq '+');
    # 
    $result -= $value if ($numbers[$i] eq '-');
    # 軻
    $result *= $value if ($numbers[$i] eq '*');
    # 
    $result /= $value if ($numbers[$i] eq '/');

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