一些数组的练习(2)

1,在数组中遍历:
可以用循环结构对数组进行遍历,如用for结构,通过访问数组里的下标号来访问数组里的每个元素:
/home/lee#perl -
@array=(0..9,a..f);
for($index=0;$index<=$#array;$index++){
print "$array[$index] ";
}
__END__
0 1 2 3 4 5 6 7 8 9 a b c d e f
也可遍历多个数组:
/home/lee#perl -
@num=(0..9);@chr=(a..f);
foreach $str(@num,@chr){
print "$str ";
}
print "\n";
__END__
0 1 2 3 4 5 6 7 8 9 a b c d e f

2,拼接数组,就是将表里的元素添加到数组里,需要使用splice函数:
/home/lee#perl -
@array=(0..9);
splice (@array,10,0,qw/a b c d e f/);
print join(" ",@array);
__END__
0 1 2 3 4 5 6 7 8 9 a b c d e f
将表/a b c d e f/中的所有元素拼接到数组里,10表示的是拼接的位置,0表示删除0个元素
/home/lee#perl -
@array=(0..9);
splice (@array,4,3,qw/a b c d e f/);
print join(" ",@array);
__END__
0 1 2 3 a b c d e f 7 8 9
将表在数组的第四元素位置拼接,并删除第四个元素起的3个元素,即数组里的4,5,6三个元素被删除!

3,数组反向和排序:
/home/lee#perl -
@array=(0..9);
@newarray=reverse @array[3..6];
print join(" ",@newarray);
__END__
6 5 4 3
将数组里面的第三至第六元素反向并赋值给新数组
/home/lee#echo 'print join(" ",sort @ARGV),"\n"' >te.pl
/home/lee#perl te.pl 9 3 4
3 4 9
/home/lee#perl te.pl 9 3 4 4 1
1 3 4 4 9
@ARGV是perl的内建数组,他读取命令行的位置参数作为数组的元素
OK,数组就先学到这里,明天该是hash啦 ^_^

原文转自：http://www.ltesting.net