Синтаксис привязки массива Perl

Question

Почему третья печать не удалась?

my @a = (0,1,2,3); 
print @a[-@a..-2]; # works 
print @a[0..2];  # works 
print @a[0..-2]; # prints nothing 

Это не для меня ясно, смысл -@a используется в этом @a[-@a..-2] заявлении. Это специальный синтаксис? Что делает этот специальный синтаксис (если вообще) в дополнение к $#a? Это какой-то сахар (что любопытно, поскольку оно короче только одним символом), где символ для массива, используемого в субиндексе, означает «длина этого массива»?

Answer 1

3-print печатает ничего, потому что, согласно perldoc perlop:

Если левое значение больше правого значения, то он возвращает пустой список.

perldoc B::Deparse Смотрите также:

$ perl -MO=Deparse code.pl 
my(@a) = (0, 1, 2, 3); 
print @a[-@a .. -2]; 
print @a[0..2]; 
print @a[()]; 

Я считаю, print @a[-@a..-2]; "работает", потому что это на самом деле, как @a[-4 .. -2]. Согласно perldoc perldata:

Отрицательный индекс извлекает свое значение с конца.

Итак, 3 имеет индекс -1, 2 находится в индексе -2, 1 находится в индексе -3, а 0 - в индексе -4.

Answer 2

Нет ничего особенного в области -@a. В скалярном контексте @a возвращает количество элементов в массиве, поэтому -@a возвращает отрицательное значение этого числа. например Если для элементов находится @a, @a - 4 и -@a - -4.

Так, массив с четырьмя элементами,
@a[-@a..-2] означает @a[-4..-2],
, что означает @a[-4,-3,-2],
, что означает «4-й элемент с конца, 3-й элемент с конца, и 2-й элемент из end ",
, что означает" элементы 0, 1 и 2 ".