数组,array,是包含在括号里的一组元素。

  • 元素可以为任何值,也可为空,以逗号隔开。
  • 随时可以增减元素的个数。
  • 数组用@符号表示:@arr = ("A", "T", "C")
  • 数组中的每个元素都等于一个变量:print $arr[1, 2],也可以直接打印整个数组,print @arr

scalar

scalar 可以用来返回数组中元素的个数。

  1. @arr = ("A", "T", "C");
  2. print scalar(@arr);

可以用scalar 来计算一组数组数据的个数。
027. perl 中的数组与相关函数 - 图1

reverse

可以将数组中内容逆序重新排列。

@arr = ("A", "T", "C");
@arr_reverse = reverse(@arr);

sort

语法:sort{$a<=>$b}(@array)
将一组数组中的元素,按照ASCII 值由小到大排序。加上{$a<=>$b}{$a =>$b}似乎一样),则表示按照数字大小排序。

可以利用sort与reverse 将一组结果按顺序排列后升序或降序。
027. perl 中的数组与相关函数 - 图2

pop

用来将数组中最后一个元素删除。并返回它。

@arr = ("A", "T", "C");
$rm = pop(@arr); # $rm = 'C'

push

用来在数组的最后添加新的元素或数组。
push(@arr, $new_element/@new_arr)

027. perl 中的数组与相关函数 - 图3

shift

用来删去数组的第一个元素(和pop对应),并返回它。

@arr = ("A", "T", "C");
$rm = shift(@arr); # $rm = 'A'

unshift

用来在数组的最前面加上新元素或新数组(和push 对应)。
unshift(@arr, $new_element/@new_arr)
027. perl 中的数组与相关函数 - 图4

join

join($string, @array)
用指定字符串将数组中的元素连接成字符串,并返回该新的字符串。

@arr = ("A", "T", "C");
$get = join(':', @arr); # $get = 'A:T:C'

split

split(/pattern/, $string)
将字符串按照pattern 分割,并将分割后的结果返回至数组中。
027. perl 中的数组与相关函数 - 图5