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?"@arrn";?
 
 

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

 
 

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

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

 
 

print?"$#arrn";?
 
 

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,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?);?