while loop и input (<>) 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.