arrays - 如何提取@_的子集？

Question

我有以下有效的功能。但我不确定提取@_. 如何以最佳方式从中提取子集@_？

sub parseheader {
  my $grps_len = shift;
  my @grps;

  for ( my $i = 0; $i < $grps_len; ++$in) {
    my $x = shift;
    print "$x\n";
    push(@grps, $x);
  }

  return join(",", @grps), "\n";
}

print parseheader(3, "a", "b", "c");

标签： arraysperlsubset

Answer 1

使用数组切片：

my @grps = @_[0..($grps_len-1)];