本文和大家重点讨论一下Perl语法中Perl数组和列表，列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：
(1,5.3,"hello",2)，空列表：()。Perl语法 Perl数组和列表简介
一、列表
列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1,2)，空列表：()。
注：只含有一个数值的列表(如：(43.2))与该数值本身(即：43.2)是不同的，但它们可以互相转化或赋值。
列表例：
( 17,$var,"astring")
(17,26<<2)
(17,$var1+$var2)
($value,"Theansweris$value")
二、Perl数组--列表的存贮列表存贮于Perl数组变量中，与简单变量不同，Perl数组变量以字符"@"打头，如：
@array=(1,2,3);
注：
(1)Perl数组变量创建时初始值为空列表：()。
(2)因为PERL用@和$来区分Perl数组变量和简单变量，所以同一个名字可以同时用于Perl数组变量和简单变量，如：
$var=1;
@var=(11,27.1,"astring");
但这样很容易混淆，故不推荐。
◆对Perl数组中的值通过下标存取，第一个元素下标为0。试图访问不存在的Perl数组元素，则结果为NULL，但如果给超出Perl数组大小的元素赋值，则Perl数组自动增长，原来没有的元素值为NULL。如：
@array=(1,3,4);
$scalar=$array[0];
$array[3]=5;#now@arrayis(1,5)
$scalar=$array[4];#now$scalar=null;
$array[6]=17;#now@arrayis(1,5,"",17)
◆Perl数组间拷贝
@result=@original;
◆用Perl数组给列表赋值
@list1=(2,4);
@list2=(1,@list1,5);#@list2=(1,4,5)
◆Perl数组对简单变量的赋值
(1)@array=(5,7,11);
($var1,$var2)=@array;#$var1=5,$var2=7,11被忽略
(2)@array=(5,7);
($var1,$var2,$var3)=@array;#$var1=5,$var3=""(null)
◆从标准输入(STDIN)给变量赋值
$var=<STDIN>;
@array=<STDIN>;#^D为结束输入的符号
"$var[0]"为Perl数组@var的第一个元素。
"$var\[0]"将字符"["转义，等价于"$var"."[0]"，$var被变量替换，[0]保持不变。
"${var}[0]"亦等价于"$var"."[0]"。
"$\{var}"则取消了大括号的变量替换功能，包含文字：${var}.
(1..10)=(1,6,8,9,10)
(2,5..7,11)=(2,11)
(3..3)=(3)
◆用于实数
(2.1..5.3)=(2.1,3.1,4.1,5.1)
(4.5..1.6)=()
◆用于字符串
("aaa".."aad")=("aaa","aab","aac","aad")
@day_of_month=("01".."31")
◆可包含变量或表达式
($var1..$var2+5)
◆小技巧：
$fred="Fred";
print(("Hello,".$fred."!\n")x2);
其结果为：
Hello,Fred!
Hello,Fred!
(1)@array=(1,3);
print(@array,"\n");
结果为：123
(2)@array=(1,3);
print("@array\n");
结果为：123
当Perl数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。
@array=(1,3);
$scalar=@array;#$scalar=3,即@array的长度
($scalar)=@array;#$scalar=1,即@array第一个元素的值
注：以Perl数组的长度为循环次数可如下编程：
$count=1;
while($count<=@array){
print("element$count:$array[$count-1]\n");
$count++;
}
6、子Perl数组
@array=(1,5);
@subarray=@array[0,1];#@subarray=(1,2)
@subarray2=@array[1..3];#@subarray2=(2,4)
@array[0,1]=("string",46);#@array=("string",46,5)now
@array[0..3]=(11,22,33,44);#@array=(11,44,5)now
@array[1,3]=@array[3,4];#@array=(11,5)now
@array[0..2]=@array[3,4];#@array=(5,5)now
可以用子Perl数组形式来交换元素：
@array[1,2]=@array[2,1];
7、有关Perl数组的库函数
(1)sort--按字符顺序排序
@array=("this","is","a","test");
@array2=sort(@array);#@array2=("a","test","this")
@array=(70,100,8);
@array=sort(@array);#@array=(100,70,8)now
(2)reverse--反转Perl数组
@array2=reverse(@array);
@array2=reversesort(@array);
(3)chop--Perl数组去尾
@list=("rabbit","12345","quartz");
chop(@list);#@list=("rabbi","1234","quart")now
(4)join/split--连接/拆分
join的第一个参数是连接所用的中间字符，其余则为待连接的字符Perl数组。
$string=join("","this","string");#结果为"thisisastring"
@list=("words","and");
$string=join("::",@list,"colons");#结果为"words::and::colons"
@array=split(/::/,$string);#@array=("words","and","colons")now
关联数组(类似hash表或者json)
为了解决普通数组的局限性----当数组很大的时候遍历起来就会很困难。perl
提供了一种新的数组关联数组。他的定义区别于普通数组以%打头,区别于普通数组的是
他的下标可以是任何值这样以来他的下标就可以没有任何顺序。
例如 %array1=(key1,value1,key2,value2,key3,value3);
其结果是 ＄array1{key1}=value1，其中key1可以为任何值数字，字串变量等。可以看出关联数组的个数为偶数。
perl为了能更好把下标和值区分开来采用=〉方式，array1就可以改变成如下形式
%array1=(key1=>value1,key2=>value2,key3=>value3);
关联数组的赋值与普通数组和列表相似。
为了更好的理解关联数组引入下面这一段话：
你可以把它们想象为一组卡片。每张卡片上半部分是索引而下半部分是数值。
关联数组的操作函数
1。keys(%array)操作符可生成由关联数组%array中的所有当前关键字组成的列表。即
返回奇数个元素(第1,7...个)的列表。
2。values(%array)操作符返回由关联数组%array中所有当前值组成的列表，即返回偶
数个列表。
3。echo(%array)操作符返回由一个关键字和一个值对构成的两个元素的表。对同一数组再操作时返回下一对值直至结束。若没有更多的对时，echo()返回空表。
4。delete ＄ARRAY{key};delete 是 Perl 所提供的函数，作用是删除关联数组中的一个key以及这个 key 所对应的 value。使用方法是 在delete 函数之后，指定关联数组中要删除的key名称。
5。 exists (element)在Perl5中定义，判断关联数组中是否存在某元素，若存在，返回非零值(真)，否则返回零值(假)。
Perl的数组操作有四大常用函数，分别是：
push：从数组的末尾加入元素。
pop ：从数组的末尾取出元素
shift： 从数组的开头取出元素
unshift：从数组的开头加入元素
其应用具体如下：
1、push
#!/usr/bin/perl
use strict;
use warnings;
my @array = ();
for ( my $i = 1 ; $i <= 5 ; ++$i ) {
push @array,$i;
print "@array\n";
}
output：
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
2、pop
#!/usr/bin/perl
####<pop>###
use strict;
use warnings;
my @array = ( 1,6 );
while (@array) {
my $firstTotal = pop(@array);
print "@array\n";
}
output：
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1
3、shift
#!/usr/bin/perl
####<shift>###
use strict;
use warnings;
my @array = ( 1,6 );
while (@array) {
my $firstTotal = shift(@array);
print "@array\n";
}
output：
2 3 4 5 6
3 4 5 6
4 5 6
5 6
6
4、unshift
#!/usr/bin/perl
####<unshift>###
use strict;
use warnings;
my @array = ();
for ( my $i = 1; $i <= 5; ++$i ) {
unshift( @array,$i ); # add $i to front of @array
print "@array\n"; # display current @array
}
output：
1
2 1
3 2 1
4 3 2 1
5 4 3 2 1
另外，perl的数组还有其它重要函数，如splice、subtr、split、join、sort等。
5、splice 操作数组中间部分的函数,该函数主要有2个作用：
5.1、向数组中间插入内容
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array,@array1 );
print "replaced: @replaced\n",
"with: @array1\n",
"resulting in: @array\n\n";
output：
replaced: 3 4
with: a b c d
resulting in: 0 1 2 a b c d 5 6
5.2、删除数组元素
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array,2 );
print "replaced: @replaced\n",
"resulting in: @array\n\n";
output：
replaced: 3 4
with: a b c d
resulting in: 0 1 2 5 6
删除到末尾
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my @array1 = ( 'a' .. 'd' );
my @replaced = splice( @array,3 );
print "replaced: @replaced\n",
"resulting in: @array\n\n";
output：
replaced: 3 4 5 6
resulting in: 0 1 2
6、join 连接列表中的各个分离的串，生成一个新的串，返回一个标量！
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my $replaced = join("\n",@array);
print "$replaced\n",
output：
0
1
2
3
4
5
6
7、split
把字符串进行分割并把分割后的结果放入数组中
perl -le '$p=q(/var/ftp/test);@a=split(/\/ftp\//,$p);print $a[1];'
test
perl -le '$p=q(/var/ftp/test);@a=split(/\/ftp\//,$p);print $a[0];'
/var
8、scalar
统计数组的长度，一般我们不用这个，直接将数组赋值给标量即可。
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 6 );
my $count1 = @array;
my $count2 = scalar @array;
print "$count1\n";
print "$count2\n";
output：
7
7
9、sort
对数组元素进行排序
#!/usr/bin/perl
use strict;
use warnings;
my @array = ( 0 .. 9 );
my @reversed = reverse @array;
print "Original: @array\n";
print "Reversed: @reversed\n\n";
# create an unsorted array of numbers and sort it
my @array2 = ( 100,23,75,10,50,96,1,40 );
my @sortedLexically = sort @array2;
my @sortedNumerically = sort { $a <=> $b } @array2;
print "Unsorted: @array2\n";
print "Lexically: @sortedLexically\n";
print "Numerically: @sortedNumerically\n";
output：
Original: 0 1 2 3 4 5 6 7 8 9
Reversed: 9 8 7 6 5 4 3 2 1 0
Unsorted: 100 23 9 75 5 10 2 50 7 96 1 40
Lexically: 1 10 100 2 23 40 5 50 7 75 9 96
Numerically: 1 2 5 7 9 10 23 40 50 75 96 100
如何判断某个数组中是否存在某个元素
如果数组是@array类型，则有两种判断方法：
1.循环判断，好处是可以获取该元素的索引。my@array=qw(var1 var2 var3);
my %pos$index= 0map {pos_}+;
if(exists{var1{
warn "yes/n"}
2.智能匹配判断，好处是代码简洁。
(elem~) #该方法数组中不能有null值 否则会影响判断
+ 0 )
(1 2 3 4="1"if + 0)
{
print "yes/n"}
hash{$key)
二维数组:
实例运用: @select_col为二维数组
my @select_col;
my $select_data;
#while($select_data=$sth_select->fetchrow_arrayref())
#{
# if($data_str ne "")
# {
# $data_str="$data_str,";
# }
# $data_str=$data_str."[$gid,'+',['".join("','",@{$select_data})."']]";
# }
my $nn=0;
while($select_data=$sth_select->fetchrow_arrayref())
{
$select_col[$nn]=[@$select_data];
$nn++;
}
printf("读出时间%.1f seconds.\n",time-$startTime);
my $startTime=time;
my @col_data;
foreach my $aref (@select_col)
{
@col_data=@{$aref};
#print @col_data;
if($data_str ne "")
{
$data_str="$data_str,";
}
$data_str=$data_str.'['.$gid.",['";
for(my $nnn=0;$nnn<=@col_data;$nnn++)
{
if($nnn==@col_data)
{
$data_str=$data_str.@col_data[$nnn]."']]";
}
else
{
$data_str=$data_str.@col_data[$nnn]."','"
}
}
}
二维数组的基本知识:
•1 数组与引用 •2 声明的区别 •3 访问的区别 •4 添加行元素 •5 添加列元素 •6 访问与打印 •6.1 运算符优先级 •6.2 访问一个 •6.3 遍历 •7 切片 1 数组与引用 此处引用相当于C中的指针。 二维数组第一列不存储具体元素而是存储指向该行一维数组的引用。 2 声明的区别 •数组用如下形式声明： 数组名前加@，之后用()。 my @AoA = ( [ "fred","barney","pebbles","bambam","dino",], [ "george","jane","elroy","judy", [ "homer","bart","marge","maggie", ); •引用如下形式声明： 引用名前用$，之后用[]。 $ref_to_AoA = [ [ "fred", [ "george", [ "homer", ]; 3 访问的区别 •数组访问 $AoA[$i][$j] 因为第一列数组里面存放的是引用，所以还可以这样访问： $AoA[$i]->[$j] •引用访问 $ref_AoA->[$i][$j] 同理引用还可以这样访问： $ref_AoA->[$i]->[$j] 4 添加行元素 my (@AoA,$ref_to_AoA); sub print_AoA{ for (@AoA) { print "@{$_}\n"; } print "\n"; } # assign to our array,an array of array references @AoA = ( [ "fred", ); say $AoA[2][1]; $ref_to_AoA = [ [ "fred", ]; print_AoA(); my @tmp = (1,4); push @AoA,[@tmp]; # 因为数组AoA第一列需要的是引用，而@tmp是数组，直接赋值会出错。[]表示返回@tmp的引用，即把@tmp的引用push到@AoA最后一行，二维数组行数加1. print_AoA(); push @AoA,@tmp; print_AoA(); 覆盖行 #$AoA[0] = @tmp; #$AoA[0]是scalar型，而@tmp是list型，所以用默认把tmp的个数赋给$AoA[0]，即$AoA[0]=4; $AoA[0] = [@tmp]; #overwirte print_AoA(); 5 添加列元素 push @{$AoA[0]},"wilma","betty"; 省略@{} use v5.14; # needed for implicit deref of array refs by array ops push $AoA[0],"betty"; # 在5.14版本之前不能通过，因为以前规定push的第一参数必须为数组。在新版本中当$AoA[0]中存在引用时可以通过，但无引用时不正确。 print_AoA(); my $aref = undef; #push $aref,qw/some value/; # 出错：Not an ARRAY reference my $aref = [@tmp]; push $aref,qw/some value/; # 正确，因为aref此时不是个空引用 print "$aref : @$aref\n"; 6 访问与打印 6.1 运算符优先级 $@*%& 6.2 访问一个 print $AoA[$i][$j]; print ref_$AoA->[$i]->[$j]; 6.3 遍历 •最简单的一种 for $aref ( @AoA ) # $aref只是第一列里面的引用，要想访问整行必须加@，又$访问级别比@高，所以（）可以省略。 { say "\t [ @$aref ],"; } •使用$# for my $i (0 .. $#AoA){ say "elt $i is @{$AoA[$i]}"; } •内嵌循环 for my $i (0 .. $#AoA){ for my $j (0 .. $#{$AoA[$i]}){ say "elt $i,$j is $AoA[$i][$j]\n"; } } 7 切片 要访问几行几列元素。和Matlab中访问矩阵的方法差不多。 •切单行多列 my @part = (); my $x = 4; for (my $y = 1; $y<4; $y++){ push @part,$AoA[$x][$y]; } # 简单写法 @part = @{$AoA[4]}[1..4]; •切多行多列 my @newAoA = (); for (my $startx= my $i = 1; $i<=5; $i++){ for(my $starty = my $j = 2; $j<=4; $j++){ $newAoA[$i - $startx][$j - $starty] = $AoA[$i][$j]; } } #一个循环简单写法 for (my $x = 1; $x<=5; $x++){ push @newAoA,[@{$AoA[i]}[2 .. 4]]; } •编写函数 sub splice_2D{ my $lrr = shift; my($x_l,$x_h, $y_l,$y_h) = @_; return map( [ @{$lrr -> [$_]} {$y_l .. $y_h}] )$x_l .. $x_h; } @newAoA = splice_2D(\@AoA,1=>5,2=>4);