Question

perl中，一个简单的push数组

程序如下：
@data = qw/ 1 2 3 /;
@new = push @data, 5;
print "@new\n"
运行程序：
root@luis-VirtualBox:~# ./perl.pl
4

最后结果怎么是4啊？我想要的结果应该是1 2 3 5 啊？这是怎么回事？

Answer 1

@data = qw/ 1 2 3 /;
push @data, 5; #---数组后加5，@new = push @data, 5整个语句返回加过5后的元素个数即为4
print "@data\n"

追问

谢谢
@data = qw/ 1 2 3 /;
push @data, 5;
print "@data\n"
root@luis-VirtualBox:~# ./perl.pl
1 2 3 5
为什么我这样写（如下）：
@new = push @data, 5;在print就变成打印数组的个数了呢？

追答

@new = push @data, 5 ;
push函数：向数组的末尾添加一个或更多元素，并返回新的长度（4）。
然后这个长度赋给了@new

Answer 2

push @data, 5;#返回的是@data加入5后的元素个数，此时为4。

perldoc -f push