сращивания в PERL скрипт

Question

my @writers = qw(Horace Ovid Virgil Asimov Heinlein Dante); 
my @contemporary = splice @writers, 3, 2; 
print join(' ', @contemporary); 

выход

Asimov Heinlein 

 

---

my @writers = qw(Horace Ovid Virgil Asimov Heinlein Dante); 
splice @writers, 3, 2; 
print join(' ', @writers); # Horace Ovid Virgil Dante 

выход

Horace Ovid Virgil Dante 

В чем разница между этими сценариями. Почему он показывает разные результаты?

Answer 1

здесь

my @contemporary = splice @writers, 3, 2; 
print join(' ', @contemporary); 

возвращает те элементы, которые были удалены

а здесь

splice @writers,3,2; 
print join(' ', @writers) 

это просто напечатать элементы массива

и в скалярном контексте например

my $contemporary = splice @writers, 3, 2; 
print $contemporary; 

он будет печатать последний элемент, который был удален

из perldoc

Удаляет элементы, обозначенные OFFSET и LENGTH из массива, и заменяет их с элементами LIST, если таковые имеются , В контексте списка возвращает элементы, удаленные из массива. В скалярном контексте возвращает последний удаленный элемент или undef, если элементы не удалены. Массив растет или сжимается по мере необходимости. Если OFFSET отрицательный, то он начинается так далеко от конца массива. Если LENGTH опущен, удаляет все из OFFSET вперед. Если LENGTH отрицательна, удаляет элементы из OFFSET вперед, за исключением элементов -LENGTH в конце массива. Если оба параметра OFFSET и LENGTH опущены, удаляются все. Если OFFSET находится за концом массива, Perl выдает предупреждение и сращивается в конце массива.