perl pop push shift unshift实例介绍

学习记录一下

#!/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 ping检测功能脚本代码
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步:)领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知

一行代码解决 perl输入 排序 输出问题
先来看基本的方法：chomp(@strings=STDIN);@strings=sort@strings;print"@stringsn.";上面的三行代码解决的是输入，然后排序，最后将排序后的结果输出的作用。只用

perl中chomp的使用介绍(chop和chomp函数区别)
例子：#!/bin/perlprint"Pleaseinputanstringandanumberbyorder!n";$the_string=;$the_numb=;print"Theresultisn";print"$the_string"x"$the_numb";结果：Theresultismymymymymy这里的问题便是没