数组：pop&清空数组&查找某元素是否在数组内

pop操作将数组的最后一个元素取出并返回：

@array=5..9;



$fred=pop(@array);#$fred得到9，@array现在为（5，6，7，8）



$barney=pop@array;#$barneygets8,@array现在为（5,6,7）



pop  @array;#@array现在为（5，6）(7被丢弃了)

 

数组清空：

@=（）；

查找某元素是否在数组内：

比如我有一个list
@ifs=(eth1 eth2.45 eth3);
然后有个变量
$iface="eth2";
我要判断$iface在不在@ifs里

 

if ( grep { $_ eq $iface } @ifs )



{ # 存在 }

 

或是：

#!/usr/bin/perl

@ifs=qw(eth1 eth2.45 eth3);

$it=grep /$eth2/, @ifs;

if($it==0){

print "NO\n";

}

else{

print "YES\n";

}