Perl數組方法總結
-
目錄
4.1.$#array 表示数组的最后一个元素的下标,数组长度-1
4.2.@array 表示数组长度,直接进行print会输出数组内容
一、Perl中數組的聲明
- Perl使用"@"符号声明一个数组:@array;
二、Perl中數組的初始化
2.1.直接賦初值
$var = 2
@array = (12,"123","abc",$var);
2.2.使用qw給數組賦值
@array = qw(12 123 abc);
2.3.等差數列
@array = (1..10)
三、數組的基本方法
3.1.數組元素的存取
@array=(1,2,3,4,5,6,7);
#取数组元素:
$array[0] #表示数组的第一个元素 1,以此类推。
@array[1..3] #表示数组的第二个元素到第四个元素:2,3,4
@array[1,2,4] #表示数组的第二,第三和第五个元素:2,3,5;顺序也可以交换:@array[4,1,2]: 5 2 3;
#修改数组
#通过上述取数组元素的方法,取得元素,然后进行重新赋值。
$array[0]= -1; # $array=(-1,2,3,4,5,6,7)
@array[1..2]=(8,9); # $array=(1,8,9,4,5,6,7)
3.2.用foreach遍歷數組
#!user/bin/env perl -w
@array = qw(1 2 3 4 5 6);
$var = 100;
foreach $var (@array)
{
print "$var\n";
}
print "var is : $var\n";
3.3.像數組追加元素
- push(@array, $var)
- unshift(@array, $var); #在数组的开头插入一个或多个元素,并返回新數組的元素個數
3.4.刪除數組中的元素
- pop(@array)
- shift(); #从数组中取出第一个元素,并移除该元素
- my @temp = grep { $_ ne "apple" } @fruits; #刪除掉不等於“apple”的元素
3.5.數組元素排序
- sort:按照字符在ASCII码表中的顺序逐位向下进行排序
- reverse:将数组进行倒序
- 實例:
my @scores = ( 10, 0, 4, 5, 2, 9, 8 );
#字符串数组升序:
my @temp = sort { $a cmp $b } @fruits;
#数字数组升序 :
my @temp = sort { $a <=> $b } @scores;
#字符串数组降序:
my @temp = sort { $b cmp $a } @fruits;
#数字数组升序 :
my @temp = sort { $b <=> $a } @scores;
3.6.數組判空
if(@list) {
print "Not empty \n";
}
my $arr_num = scalar @arr1;
if ($arr_num == 0) {
print "empty \n";
}