学习记录一下
复制代码 代码如下:
#!/usr/bin/perl -w
use strict;
print '@a @b @c @d 的值都为1 2 3',"\n";
my @a = (1..3);
pop(@a);
print "\@a的值为@a,pop拿掉数组最右边的值\n";
my @b = (1..3);
push(@b,'4');
print "\@b的值为@b,push添加一个值到数组的最右边。\n";
my @c = (1..3);
shift@c;
print "\@c的值为@c,shift拿掉数组最左边的一个值。\n";
my @d = (1..3);
unshift(@d,0);
print "\@d的值为@d,unshift添加一个值到数组的最左边。\n";

 
[root@OTRS perl]# perl pop_push_shift_unshift.pl
@a @b @c @d 的值都为1 2 3
@a的值为1 2,pop拿掉数组最右边的值
@b的值为1 2 3 4,push添加一个值到数组的最右边。
@c的值为2 3,shift拿掉数组最左边的一个值。
@d的值为0 1 2 3,unshift添加一个值到数组的最左边。
标签:
pop,push,shift,unshift

免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com

评论“perl pop push shift unshift实例介绍”

暂无“perl pop push shift unshift实例介绍”评论...

RTX 5090要首发 性能要翻倍!三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。

据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。