perl - 限制数组的大小？

Question

假设我们有以下代码:

#!usr/bin/perl

use strict ;
use warnings ;



sub print_ele_arr{

my @arr = <STDIN> ;
#print the elements of the array here . 
#do something else ..
    }
print_ele_arr() ;

但我只想将用户输入中的 3 个元素存储到我的 @arr 数组中，如何做到这一点，通常如何限制给定数组的大小？

Answer 1

要只存储 3 行，您可以使用

my $i = 1;
while (defined( my $line = <STDIN>) and $i++ <=3) {
    push @arr, $line;
}

至于第二个问题，限制数组的大小是什么意思？您可以使用数组切片来获取数组的前三个元素:

my @first_three = @arr[0 .. 2];