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.