perl – 如何从数组引用获取切片?

让我们说我们有以下数组:
my @arr=('Jan','Feb','Mar','Apr');
my @arr2=@arr[0..2];

如果我们有如下的数组引用,我们如何做同样的事情:

my $arr_ref=['Jan','Apr'];
my $arr_ref2; # How can we do something similar to @arr[0..2]; using $arr_ref ?

解决方法

获取从数组引用开始的切片,请使用包含数组引用的块替换数组名称。我使用空白来展开部分,但它仍然是同样的事情:
my @slice =   @   array   [1,3,2];
 my @slice =   @ { $aref } [1,2];

如果块中的引用是一个简单的标量(所以,不是一个数组或哈希元素或大量的代码),你可以离开花括号:

my @slice =   @$aref[1,2];

然后,如果你想要一个引用,你可以使用匿名数组构造函数

my $slice_ref = [ @$aref[1,2] ];

有了新的post-dereference feature (experimental) in v5.20

use v5.20;
use feature qw(postderef);
no warnings qw(experimental::postderef);

my @slice = $aref->@[1,2];

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...