perl while 루프에서 eq 연산자로 예기치 않은 동작이 발생합니다. while 루프는 멈추지 않습니다

Question

스칼라 $quit이 분명히 'j'와 같지 않은 후에 루프가 멈추지 않습니다. 왜 멈추지 않을까요?

#!/usr/bin/perl -w 

use strict; 
my $quit = 'j'; 

while ($quit eq 'j') { 

    print "Enter whatever value you want and I bet I still continue.\n"; 
    chomp (my $quit = <STDIN>); 
    print "quit equals: $quit\n"; 

} 

Answer 1

당신이 my 키워드로 새로운 $quit 변수를 만드는에서 my을 제거 :

chomp (my $quit = <STDIN>); 

당신 실제로 기존 변수에 할당하려는 경우 :

펄 linting 프로그램 등 Perl::Critic이 문제에 당신을 경고 한 것 (210)

chomp($quit = <STDIN>); 

참고 : 어휘 범위에서

재사용 변수 이름 : 라인 9시 종료 $, 열 (12)은 고유 변수 이름을 발명. (심각도 : 3)

Answer 2

당신은 루프에 $quit을 재정의 : chomp (my $quit = <STDIN>);이 선 루프 내부

#!/usr/bin/perl -w 
use strict; 
my $quit = 'j'; 

while ($quit eq 'j') { 

    print "Enter whatever value you want and I bet I still continue.\n"; 
    chomp ($quit = <STDIN>); 
    print "quit equals: $quit\n"; 

} 

Answer 3

while 루프 내에서 새 변수 $ quit을 정의했기 때문에. 이 당신이 원하는 무엇인가 : 그래서

chomp ($quit = <STDIN>); 

, '내'없이.