Perl——数组、foreach

前端之家收集整理的这篇文章主要介绍了Perl——数组、foreach前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

数组

1. 定义

@array = (....);

例如:@array = ("abc","efg","hjk");


2.扩展数组

push @array,content

@array = ("abc","hjk");

print @array,"\n";

#扩展,添加一个字符串
push @array,"wse";
print @array,添加一组字符串
@temp = ("xcv","bnm");

push @array,@temp;
print @array,"\n";

3. 堆栈

把数组作为堆栈,在取数据时则后进先出

push 添加数据

pop  弹出并删除最后添加进入数组的值

@array = ();

#把数组做为堆栈,取数据时则后进先出
push @array,"abc"; 
push @array,"bcd";

print $array[0],"\n"; #abc
print $array[1],"\n"; #bcd

#pop 弹出并删除最后添加进入数组的值
$p = pop @array;
print "array:",@array,"\n"; #abc
print "pop:",$p; #bcd

4. 队列

把数组做为队列,在取数据时则先进先出

push 添加数据

shift 弹出并删除最先添加进入数组的值

@array = ();

#把数组做为队列,push @array,"\n"; #bcd

#shift 弹出并删除最先添加进入数组的值
$p = shift @array;
print "array:","\n"; #bcd
print "shift:",$p; #abc


foreach

1. 遍历数组

foreach $a (@array) {
	print $a,"," ;
}

2. 终断或终止循环

last : 结束循环,不再执行foreach语句块,相当于java中的break;

next : 结束一次循环,进入一次的 循环,相当于java中的continue;

猜你在找的Perl相关文章