while循環和輸入（<>）Perl

Question

如何使while循環w8直到用戶輸入somting？

$var = <>; 
while(1){ 
somting $var; 
} 

Answer 1

嘗試這樣做：

use strict; use warnings; 

print "type something >>> "; 
chomp(my $var = <STDIN>); 

while(1){ 
    print "type something from within the LoOp >>> "; 
    chomp($var = <STDIN>); 
    print "$var\n"; 
} 

Answer 2

我不完全知道你是問什麼，所以這裏是我的兩次嘗試..

如果你的意思是繼續等待直到用戶輸入初始值：

my $var = <>; 

應該可以正常工作。

如果你想在一個循環中不斷地接收輸入，我會做：

while(my $var = <>){ 
    something($var); 
} 

對於這個在深入瞭解一個更我建議this link.