perl实例分析教程之五-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

perl实例分析教程之五

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　一、列表

　　列表是包含在括号里的一序列的值，能够为任何数值，也可为空，如：(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, 2, 3, 4);

　　$scalar = $array[0];

　　$array[3] = 5; # now @array is (1,2,3,5)

　　$scalar = $array[4]; # now $scalar = null;

　　$array[6] = 17; # now @array is (1,2,3,5,"","",17)

　　.数组间拷贝

　　@result = @original;

　　.用数组给列表赋值

　　@list1 = (2, 3, 4);

　　@list2 = (1, @list1, 5); # @list2 = (1, 2, 3, 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, $var2 = 7, $var3 ="" (null)

　　.从标准输入(STDIN)给变量赋值

　　$var = ;

　　@array = ; # ^D为结束输入的符号

　　2 、字符串中的方括号和变量替换

　　"$var[0]" 为数组@var的第一个元素。

　　"$var[0]" 将字符"["转义，等价于"$var". "[0]"，$var被变量替换，[0]保持不变。

　　"${var}[0]" 亦等价于"$var" ."[0]"。

　　"${var}"则取消了大括号的变量替换功能，包含文字：${var}.

喜欢本文，那就收藏到：