Perl中列表和数组的用法

总结一下Perl中列表和数组操作的一些用法

假设定义一个数组变量@arr, 将列表（str_a, str_b, str_c, str_d）赋值给数组@arr

@arr = (str_a, str_b, str_c, str_d);

将数组@arr的元素个数赋值给$var

$var = @arr;

打印这个数组@arr，并且数组中的元素以空格分隔开

print "@arr\n";

打印数组@arr的第一个和第三个元素和最后一个元素，默认索引从0开始，索引-1表示最后一个元素

print "$arr[0], $arr[2], $arr[-1]\n";

打印数组@arr的最后一个元素的索引值

print "$#arr\n";

pop操作符， 取出数组的最后一个元素并赋值给$var

$var = pop @arr;

push操作符，添加一个元素到数组的尾端

push @arr, "str_e";

shift操作符，取出数组的第一个元素并赋值给$var

$var = shift @arr;

unshift操作符， 添加一个元素到数组的开头位置

unshift @arr, "str_f";

splice操作符，

若指定2个参数，第一个为数组，第二个为索引，则取出该数组的这个索引后的所有元素

@brr = splice @arr,2;

若指定3个参数，第3个代表取出元素的个数，例如取出数组索引1的元素和后面的共2个元素

@brr = splice @arr,1,2;

若指定4个参数，第4个代表替换前面被取出的元素，例如str_e将替换被取出的2个元素

splice @arr,1,2,"str_e";

列表批量赋值，qw表示自动加上引号的列表

($var_a, $var_b, $var_c) = qw( apple pear banana );

交换列表中变量的值

($var_a, $var_b) = ($var_b, $var_a);

循环打印列表元素，$_代表列表中的默认变量

foreach (1..10){

       print "$_\n";

}

reverse操作符，将列表中的元素反向排序并赋值给另一个数组

@rra = reverse (1..10);

sort操作符， 将列表中的元素按照ASCII码顺序排序

@arr = sort qw( apple pear banana );

本文出自 “努力为之” 博客，请务必保留此出处http://carllai.blog.51cto.com/1664997/1174840

查看本栏目更多精彩内容：http://www.bianceng.cnhttp://www.bianceng.cn/Programming/extra/