Perl——数组、foreach

数组

1. 定义

@array = (....);java

例如：@array = ("abc","efg","hjk");
数组

2.扩展数组

push @array,contentcode

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

print @array,"\n";

#扩展,添加一个字符串
push @array,"wse";
print @array,"\n";

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

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

3. 堆栈

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

push 添加数据字符串

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

@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. 队列

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

push 添加数据扩展

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

@array = ();

#把数组作为队列,
push @array,"abc"; 
push @array,"bcd";

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

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

foreach

1. 遍历数组

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

2. 终断或终止循环

last : 结束循环，再也不执行foreach语句块，至关于java中的break;循环

next : 结束一次循环，进入一次的 循环，至关于java中的continue;