如何在Perl中完成数组部分

Question

a = [-1, 1, 66.25, 333, 333, 1234.5]
print a[4][1]; #it prints 3

在Perl中有没有办法做到这一点。

Answer 1

我同意hobbs ......但是要明确，在上面的例子中，我认为这是你想要的Perl：

my @a = (-1, 1, 66.25, 333, 333, 1234.5);
print substr ($a[4], 1, 1); #it prints 3

不幸的是，这个例子有点含糊不清，因为4和1都是从零开始的，我真的不确定你想要的333或333中的哪个数字你想要...... Python是否基于零？我确定这是无意的，但那是关于该地段最糟糕的例子。

也许这个更好：

print substr ($a[5], 3, 1);  # prints '4' from '1234.5'