从控制台读取多行

Question

如何在Perl中从控制台读取多行？

我用过@a = <STDIN>;但我无法摆脱那种说法。 Evertime我点击进入它进入新线。我已阅读命中ctrl+d以结束输入但它似乎不起作用。

Answer 1

你可以使用while循环，

my @a;
while (<STDIN>) {
    /\S/ or last; # last line if empty
    push @a, $_;
}

print @a;

Answer 2

也许更好的主意是某种循环：

use strict;
use warnings;

my @a;
for(;;) {
    my $input = <STDIN>;
    last if not defined $input;
    chomp $input;
    push @a, $input;
}

当您输入Unix <EOF>（默认情况下通常设置为Ctrl-D）时，这将结束。

Answer 3

好像你在Windows上。在Windows上，您必须在空行上按Control-z，然后按Enter键。