perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边
perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边学习记录一下
1. #!/usr/bin/perl -w
2. use strict;
3. print '@a @b @c @d 的值都为1 2 3',"\n";
4. my @a = (1..3);
5. pop(@a);
6. print "\@a的值为@a,pop拿掉数组最右边的值\n";
7. my @b = (1..3);
8. push(@b,'4');
9. print "\@b的值为@b,push添加一个值到数组的最右边。\n";
10. my @c = (1..3);
11. shift@c;
12. print "\@c的值为@c,shift拿掉数组最左边的一个值。\n";
13. my @d = (1..3);
14. unshift(@d,0);
15. print "\@d的值为@d,unshift添加一个值到数组的最左边。\n";
16.
17.
18. # perl pop_push_shift_unshift.pl
19. @a @b @c @d 的值都为1 2 3
20. @a的值为1 2,pop拿掉数组最右边的值
21. @b的值为1 2 3 4,push添加一个值到数组的最右边。
22. @c的值为2 3,shift拿掉数组最左边的一个值。
23. @d的值为0 1 2 3,unshift添加一个值到数组的最左边。
页:
[1]