겉으로보기에는 틀린 대답을주는 조건문 : 내가 무엇을 놓치고 있냐

Question

나는 누적기를 유지하고 간단한 연산을하는 Perl에서 간단한 계산기를 만들어야한다. 누산기는 0에서 시작한 다음 수신 한 결과에 따라 변경됩니다. 현재 나는 일을 더하기 위해 노력하고 있습니다. 입력 한 연산자가 + 무언가 잘못되었는지 확인합니다. 예 :

누산기 : 0
연산자 : 여기에 넣은 값이 모두 추가됩니다. 이 문장 포함.
피연산자 : 4

배터리는 4

그것은 수 있지만 아무것도를 잡는다. 나는 grep과 연산자 목록을 사용해 보았습니다. 나는 모든 아이디어를 다 써 버렸다. 여기에 내 코드 (참고로 첫 번째 게시물 그래서 어떤 멍청한 놈 오류 좀 도와)입니다 : 당신이 -l 옵션을 사용하지 않는 한 "+\n"에 대해 "+"을 비교하고, 그래서

my $running = 1; 
my $accum = "0"; 
my $operator; 
my $operand; 

print("Welcome to the simple, command line calculator.\n"); 
print("To terminate, press Control-C.\n\n"); 

while ($running){ 

    print("\nAccumulator: ".$accum."\n"); 
    print("Operator: "); 
    $operator = <STDIN>; 
    if ($operator == "+"){ 
      print("Operand: "); 
      operand = <STDIN>; 
      $accum += $operand; 
    } 
    else{ 
     print("Invalid operator: ".$operator."\n"); 
    } 
} 

Answer 1

펄, 입력에서 끝나는 줄 바꿈을 제거하지 않습니다. 보통 chomp($operator); 같은 soemthing하고 싶다. 말했다

, 당신의 실제 문제는 == 숫자 비교를 수행한다는 것입니다, 모두 "+" 및 "+\n" 숫자 맥락에서 0으로 평가합니다. ( -w을 사용하면 이 항상이됩니다. 이에 대해 경고합니다.) 문자열 비교에 eq 연산자를 사용하십시오.

Answer 2

==은 문자열이 아닌 숫자를 비교합니다. 문자열을 비교하면 문자열이 숫자로 변환됩니다. 숫자가 아닌 문자열의 경우 이는 0이됩니다. 따라서 $operator == "+"은 0 == 0이됩니다.

문자열의 경우 대신 eq을 사용하십시오. 또한 <STDIN>은 줄 바꿈을 유지합니다. chomp $operator도 확인하십시오.