手机
当前位置:查字典教程网 >脚本专栏 >perl >perl pop push shift unshift实例介绍
perl pop push shift unshift实例介绍
摘要:学习记录一下复制代码代码如下:#!/usr/bin/perl-wusestrict;print'@a@b@c@d的值都为123',"n";m...

学习记录一下

复制代码 代码如下:

#!/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添加一个值到数组的最左边。

【perl pop push shift unshift实例介绍】相关文章:

perl哈希hash的常见用法介绍

perl上下文介绍

perl ping检测功能脚本代码

perl中的$a和$b介绍

Perl学习笔记之CPAN使用介绍

Perl中chomp和chop的区别介绍

Perl localtime时间函数的应用介绍

Perl AnyEvent中的watcher实例

perl用grep map求交集、并集、补集的实例代码

Perl中的正则表达式介绍

精品推荐
分类导航