数组的Perl输入

r9f1avp5 于 8个月前发布在 Perl

关注(0)|答案(2)|浏览(89)

我将输入输入到一个数组中，直到用户按下命令d。我首先执行了一个while循环，但后来切换到了一个for循环，你会在注解中看到。无论是for循环还是while循环，输入都只是每隔一个输入到数组中。所以如果我输入一个b c d e f，然后打印数组，它只输出b d f。为什么会发生这种情况，我如何修复它？

print "Please enter your favorite foods, one per line\n";
#my $i = 0;
for(my $i = 0; $foods = <>; $i++){
  #while($foods = <>){
    chomp($foods = <>);
  push(@foods, ($foods));
#    $foods[$i] = $foods;
#}
}

Please enter your favorite foods, one per line
a
b
c
d
e
f
bdf

perl

来源：https://stackoverflow.com/questions/77109314/perl-input-to-array

2条答案

按热度按时间

ua4mk5z41#

也许是这样的：

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

say 'Please enter your favourite foods, one per line:';

my @food;

while (<>) {
  push @food, $_ if /\S/; # ignore empty input
}

chomp @food;

say join ' / ', @food;

赞(0）回复(0）举报 8个月前

xuo3flqw2#

OP代码中的功能问题是FOR循环的设置从终端读取$foods的值，