perl – 如何获得子数组？

发布时间：2020-12-15 23:25:37 所属栏目：大数据来源：网络整理

导读：我有以下代码： @a = ((1,2,3),("test","hello"));print @a[1] 我期待它打印 testhello 但它给了我2. 抱歉新手问题(Perl对我来说有点不自然),但为什么会发生这种情况,我怎样才能得到我想要的结果呢？解决方法 Perl构造@a的方式是等同于你的写作, @a = (1,3,

我有以下代码：

@a = ((1,2,3),("test","hello"));
print @a[1]

我期待它打印

testhello

但它给了我2.

抱歉新手问题(Perl对我来说有点不自然),但为什么会发生这种情况,我怎样才能得到我想要的结果呢？

解决方法

Perl构造@a的方式是等同于你的写作,

@a = (1,3,"test","hello");

这就是为什么当你通过编写@a [1](真的应该是$a [1])来索引索引1的值时,你会得到2.为了证明这一点,如果你要做以下事情,

use strict;
use warnings;
my @a = ((1,"hello"));
my @b = (1,"hello");
print "@an";
print "@bn";

两者都打印相同的行,

1 2 3 test hello
1 2 3 test hello

你想要的是在你的数组中创建匿名数组 – 像这样,

my @c = ([1,3],["test","hello"]);

如果你写下面的,

use Data::Dumper;
print Dumper $c[1];

你会看到这个打印,

$VAR1 = [
          'test','hello'
        ];

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!