如何访问数组Perl中的每个元素

Question

my@arr=qw(Larrywall); 

这是我的数组，但我只想访问Y。怎么做请告诉我。好的答案会很明显。

Answer 1

qw(Foo Bar)与('Foo', 'Bar')相同。

使用my @arr = qw(Larrywall)创建一个包含一个元素的数组。如果您想遍历字符串的每个字符，则必须将其拆分为字符：

my @arr = split //, "LarryWall";

//部分是您想要拆分字符串的正则表达式。在这种情况下，我们使用始终匹配的空模式，因此它将基本上分割在每个字符上。

如果你有一个数组，并且想要将每个元素拆分成它的字符，你可以这样做：

my @arr = map { split //, $_ } qw(Larry Wall SomethingElse);
#=> qw(L a r r y W a l l S o m e t h i n g E l s e)

或

my @arr = map { [split //, $_] } qw(Larry Wall SomethingElse);
#=> ([qw(L a r r y)], [qw(W a l l)], [qw(S o m e t h i n g E l s e)])

Answer 2

在数组的唯一元素上使用substr：

use strict;
use warnings;

my @arr = qw(Larrywall);
print substr $arr[0], 4, 1;

输出：

y