Question

请问，我想知道如何使用perl将数组元素添加到另一个元素中。如果有一个循环我可以用来为X数组制作一个计数器。

#!/usr/local/bin/perl
$line = <STDIN>;
@array = split(/ /,$line);
print"$array[4]\n";
@X[0]=@array[4];
@X[1]=@array[4];
@X[2]=@array[4];
@X[3]=@array[4];
print @X;

Answer 1

我想如何使用Perl将数组的元素添加到另一个元素。

如果你有

wrapper

然后您可以使用my @data = ( 'a', 'b', 'c' ); my @addition = ( 'x', 'y', 'z' );将push的内容添加到@addition这样

@data

现在push @data, @addition;将包含@data

你的其余问题不清楚

Answer 2

我相信你想从每个输入读取第五个字然后存储在数组中。您可以参考我的示例代码：

use strict;
use warnings;

my  @x;
while(<STDIN>){
    my $line = $_;
    chomp $line;
    my @array = split( /\s/, $line);
    push (@x, $array[4]);
    print "Your array: @x\n";
}

运行此代码时，如果输入“a b c d e”，则会将e存储到数组@x，然后如果继续输入新行“1 2 3 4 5”值5将存储到@x，依此类推。例如：

a b c d e
Your array: e
1 2 3 4 5
Your array: e 5
one two three four five
Your array: e 5 five

此外，我建议您检查每行输入至少5个字的条件如下：

if (scalar(@array) < 5){
    print "Require at least 5 words\n";
} else {
    push (@x, $array[4]);
    print "Your array: @x\n";
}

使用perl将数组的元素添加到另一个数组

2 个答案: