Perl：最後にwhileループが途切れることはありません

Question

UNIXソケットを介してサーバーと通信しています。サーバーは空行（ "\ n"）で通信を終了します。私のクライアントプログラムは次のようになります：

while (my $result = <$sock>) { 
    print $result; 
    last unless (chomp $result); 
} 
close $sock; 

しかし、私は決してwhileループから抜け出ているようです。私はCtrl-Cを出さなければならない。これはなぜですか、どうすれば解決できますか？

Answer 1

chompは削除された文字の総数を返します。したがって、行に改行が含まれている場合、常に真の値を取得します。

よう 使用何かlast if ($result =~ /^\n$/);