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 会发出警告，并在数组末尾拼接。