一、列表 列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1,5.3,"hello",2),空列表:()。 注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同的,但它们可以互相转化或赋值。 列表例: (17,$var,"a string") (17,26 << 2) (17,$var1 + $var2) ($value,"The answer is $value") 二、数组--列表的存贮 列表存贮于数组变量中,与简单变量不同,数组变量以字符"@"打头,如: @array = (1,2,3); 注:(1)数组变量创建时初始值为空列表:()。 (2)因为Perl用@和$来区分数组变量和简单变量,所以同一个名字可以同时用于数组变量和简单变量,如: $var = 1; @var = (11,27.1,"a string"); 但这样很容易混淆,故不推荐。 1、数组的存取 对数组中的值通过下标存取,第一个元素下标为0。试图访问不存在的数组元素,则结果为NULL,但如果给超出数组大小的元素赋值,则数组自动增长,原来没有的元素值为NULL。如: @array = (1,3,4); $scalar = $array[0]; $array[3] = 5; # now @array is (1,5) $scalar = $array[4]; # now $scalar = null; $array[6] = 17; # now @array is (1,5,"",17) 数组间拷贝 @result = @original; 用数组给列表赋值 @list1 = (2,4); @list2 = (1,@list1,5); # @list2 = (1,4,5) 数组对简单变量的赋值 (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 = ; @array = ; # ^D为结束输入的符号 2、字符串中的方括号和变量替换 "$var[0]" 为数组@var的第一个元素。 "$var[0]" 将字符"["转义,等价于"$var". "[0]",$var被变量替换,[0]保持不变。 "${var}[0]" 亦等价于"$var" ."[0]"。 "${var}"则取消了大括号的变量替换功能,包含文字:${var}. 3、列表范围: (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") x 2); 其结果为: Hello,Fred! Hello,Fred! 4、数组的输出: (1) @array = (1,3); print (@array,"n"); 结果为: 123 (2) @array = (1,3); print ("@arrayn"); 结果为: 1 2 3 5、列表/数组的长度 当数组变量出现在预期简单变量出现的地方,则Perl解释器取其长度。 @array = (1,3); $scalar = @array; # $scalar = 3,即@array的长度 ($scalar) = @array; # $scalar = 1,即@array第一个元素的值 注:以数组的长度为循环次数可如下编程: $count = 1; while ($count <= @array) { print ("element $count: $array[$count-1]n"); $count++; } 6、子数组 @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 可以用子数组形式来交换元素: @array[1,2] = @array[2,1]; 7、有关数组的库函数 (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--反转数组 @array2 = reverse(@array); @array2 = reverse sort (@array); (3)chop--数组去尾 chop的意义是去掉STDIN(键盘)输入字符串时最后一个字符--换行符。而如果它作用到数组上,则将数组中每一个元素都做如此处理。 @list = ("rabbit","12345","quartz"); chop (@list); # @list = ("rabbi","1234","quart") now (4)join/split--连接/拆分 join的第一个参数是连接所用的中间字符,其余则为待连接的字符数组。 $string = join(" ","this","string"); # 结果为"this is a string" @list = ("words","and"); $string = join("::",@list,"colons"); #结果为"words::and::colons" @array = split(/::/,$string); # @array = ("words","and","colons") now --------------------------------------------------------- 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 "@arrayn"; } [root@drbd-2 crontab]# ./push.pl 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 2),pop #!/usr/bin/Perl ####### use strict; use warnings; my @array = ( 1,6 ); while (@array) { my $firstTotal = pop(@array); print "@arrayn"; } [root@drbd-2 crontab]# ./pop.pl 1 2 3 4 5 1 2 3 4 1 2 3 1 2 1 3),shift #!/usr/bin/Perl ####### use strict; use warnings; my @array = ( 1,6 ); while (@array) { my $firstTotal = shift(@array); print "@arrayn"; } [root@drbd-2 crontab]# ./shift.pl 2 3 4 5 6 3 4 5 6 4 5 6 5 6 6 4),unshift #!/usr/bin/Perl ####### use strict; use warnings; my @array = (); for ( my $i = 1; $i <= 5; ++$i ) { unshift( @array,$i );? ?? ?? ?# add $i to front of @array print "@arrayn";? ?? ?? ?? ???# display current @array } [root@drbd-2 crontab]# ./unshift.pl 1 2 1 3 2 1 4 3 2 1 5 4 3 2 1 5),splice 操作数组中间部分的函数,该函数主要有2个作用: (1),向数组中间插入内容 #!/usr/bin/Perl use strict; use warnings; my @array = ( 0 .. 6 ); my @array1 = ( 'a' .. 'd' ); my @replaced = splice( @array,@array1 ); print "replaced:? ???@replacedn","with:? ?? ?? ?@array1n","resulting in: @arraynn"; [root@drbd-2 crontab]# ./splice.pl replaced:? ???3 4 with:? ?? ?? ?a b c d resulting in: 0 1 2 a b c d 5 6 (2),删除数组元素 #!/usr/bin/Perl use strict; use warnings; my @array??= ( 0 .. 6 ); my @array1 = ( 'a' .. 'd' ); my @replaced = splice( @array,2 ); print "replaced:? ???@replacedn","resulting in: @arraynn"; [root@drbd-2 crontab]# ./splice.pl 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:? ???@replacedn","resulting in: @arraynn"; [root@drbd-2 crontab]# ./splice.pl 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 "$replacedn",[root@drbd-2 crontab]# ./join.pl 0 1 2 3 4 5 6 7),split 把字符串进行分割并把分割后的结果放入数组中 [root@drbd-2 crontab]# Perl -le '$p=q(/var/ftp/test);@a=split(//ftp//,$p);print $a[1];' test [root@drbd-2 crontab]# 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 "$count1n"; print "$count2n"; [root@drbd-2 crontab]# ./join.pl 7 7 9),sort 对数组元素进行排序 #!/usr/bin/Perl use strict; use warnings; my @array? ? = ( 0 .. 9 ); my @reversed = reverse @array; print "Original:? ? @arrayn"; print "Reversed:? ? @reversednn"; # 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:? ? @array2n"; print "Lexically:? ?@sortedLexicallyn"; print "Numerically: @sortedNumericallyn"; [root@drbd-2 crontab]# ./join.pl 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 --------------------------------------------------------- Perl关联数组 关联数组和前面说的数组类似,它包含标量数据,可用索引值来单独选择这些数据,和数组不同的是,关联数组的索引值不是非负的整数而是任意的标量。这些标量称为Keys,可以在以后用于检索数组中的数值。 关联数组的元素没有特定的顺序,你可以把它们想象为一组卡片。每张卡片上半部分是索引而下半部分是数值。 关联数组是Perl 语言中特有的,关联数组是一个功能强大的数组。使用关联数组时要在前面加上 % 号,关联数组的格式如: %ARRAY=(key1,value1,key2,value2,key3,value3); 每一个key 都有一个相对应的值(value)。 和数组类似,$zmd,@zmd,%zmd 之间没有任何联系。Perl 为对象的不同类型保留独立的命名空间。 下面介绍关联数组的操作: 在关联数组中增加、更改一对数据:ARRAY={key}=value; 在关联数组ARRAY 中加上一对key-value,要在关联数组名称前加上 $ 号,而且key 的名称要在 {} 符号之间,最后再指定key 所对应的 value 值。如果在这个关联数组中已经有这个key 了。就会更改这个key 所对应的 value。 keys(%array) 操作符可生成由关联数组%array中的所有当前关键字组成的列表。即返回奇数个元素(第1,7...个)的列表。 values(%array) 操作符返回由关联数组 %array 中所有当前值组成的列表,即返回偶数个列表。 echo(%array) 操作符返回由一个关键字和一个值对构成的两个元素的表。对同一数组再操作时返回下一对值直至结束。若没有更多的对时,echo() 返回空表。(这在打印全部列表中很有用) 删除一对在关联数组中的数据:delete $ARRAY{key};delete 是Perl 所提供的函数,作用是删除关联数组中的一个key以及这个key 所对应的 value。使用方法是 在delete 函数之后,指定关联数组中要删除的 key名称。 关联数组的综合举例: %fred=(one,"zmd",two,"cxm"); $a=$fred{one}; --- #$a 等于 "zmd" $b=$fred{two}---#$b 等于"cxm" $fred{two}="yes"--- #%fred=(one,"yes") @number=keys(%fred)--- #@list=(one,two) @user=values(%fred)---#@user=("zmd","cxm") ($number,$name)=echo(%fred)--- #此时 $number 的值为one,$name 的值为"zmd",再执行一次$number 为值为two,$name 的值为 "cxm") @a=%fred--- #将关联数组fred 指定给数组a,这时 @a=(one,"cxm") %b=@a---#将数组a 指定给关联数组b,这时 %b=(one,"cxm") delete $fred{one}---#将关联数组中key 值为one 的一对key-value 删除,这时 %fred=(two,"cxm") %name=()---#把 %name 关联数组置空。 |
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|