perl - while 循环和输入 (<>) Perl

Question

如何在用户输入 somting 之前使 while 循环 w8？

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

为了更深入地了解这个，我推荐这个链接。