如何在Perl中指定“尾部切片”？

Question

如果我只想提取制表符分隔记录的第4，第5和第7个元素（比如说），我可以这样做：

my @f = (split(/\t/, $_, -1))[3, 4, 6];

但是，如果我想要第4个元素和“尾片”，包括从第7个到数组末尾的所有元素，该怎么办？我不知道如何在一行中做到这一点。我能做的最好的就是：

my @f = split(/\t/, $_, -1);
@f = @f[3, 6..$#f];

在两行中执行此操作的唯一原因是我可以在第二行中指定$#f，但这需要比任务中固有的更高程度的特异性;该任务并不真正关注 split返回的值中有多少元素。很高兴能够指定类似“从第7个元素开始可用的所有内容”......这就是我所说的“尾片”：只指定起点的切片，而终点是隐含的。

（这种规范在Unix中使用cut实用程序时很常见;例如：

... | cut -f 4,7-

）

  

是否有一些下标表达式可以直接应用于(split(...))子表达式，以便在一行中生成与上面两行代码所实现的效果相同的效果？

编辑：要清楚，我要避免的是$#ARRAY构造。我知道我总能做一些像

这样的事情

my @f = do { my @t = split(/\t/, $_, -1); @t[3, 6..$#t] };

Answer 1

列表切片括号中的表达式必须返回零个或多个索引的列表。因此，您必须知道在生成之前切片列表中的项目数。所以不，使用列表切片无法完成。

访问堆栈列表的最直接方式是@_。这确实需要一个子调用，但它确实为您提供了一种简单的机制，可以将列表保留在堆栈中。

my @f = sub { @_[6..$#_] }->( split(/\t/, $_, -1) );

请注意，此解决方案不会创建数组并将值复制到该数组中，就像您添加到问题中的代码一样。