3

私はPerlの初心者であることを知っているので、愚かな間違いを許してください. ユーザー入力を受け取る電卓を作成していますが、機能していません。if ステートメントまでは問題なく実行され、if ステートメントに到達するとプログラムが終了します。フォーラムや本を調べましたが、何も見つかりませんでした。

use warnings;

print "number\n";
$number = <STDIN>;
# Asks the user for what number to calculate.

print "Second number\n";
$secnumber = <STDIN>;
# Asks the user for second number to calculate the first number with

print "Calculation\n Multiplication  x\n Addition  +\n Substraction  -\n ";
$calculation = <STDIN>;
# Asks the user for which calculation to make.

if ($calculation eq "x") {
    print "$number" . 'x' . "\n$secnumber" . '=' . "\n" . ($number * $secnumber);
} elsif ($calculation eq "+") {
    print "$number" . '+' . "\n$secnumber" . '=' . "\n" . ($number + $secnumber);
} elsif ($calculation eq "-") {
    print "$number" . '-' . "\n$secnumber" . '=' . "\n" . ($number - $secnumber);
}
# Displays the calculation and answer.
4

2 に答える 2

2

chomp($calculation)if stmtの前と最初の割り当て操作の後に行う必要があります。( $calulation = <STDIN>;)。

于 2013-10-19T21:58:03.743 に答える