perl whileループ内でeq演算子で予期しない動作が発生しました。 whileループは停止しません

Question

スカラーの後にwhileループは停止しません$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を削除既存の変数に実際に割り当てたい：

Perlのリンティングプログラムなど Perl::Criticは、この問題にあなたを警告しているであろうと210

chomp($quit = <STDIN>); 

注：レキシカルスコープで

再利用変数名：9行目で終了し$、コラム12には、固有の変数名を発明します。 （重大度：3）

Answer 2

あなたは、ループ内$quitを再定義：あなたは

chomp (my $quit = <STDIN>); 

：chomp (my $quit = <STDIN>);は、この行にあなたがmyキーワードで新しい$quit変数を作成しているループ内

#!/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

新しい変数$ quitをwhileループ内で定義するためです。 これは、あなたが望むものである：だから

chomp ($quit = <STDIN>); 

、 '私の' なし。