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$/);