Perl 数组

LIST：列表或数组。实例





#!/usr/bin/perl





# 定义数组@sites = qw(google taobao k88 facebook);print "排序前:





@sites\n";





# 对数组进行排序@sites = sort(@sites);print "排序后:





@sites\n";执行以上程序，输出结果为：排序前:





google taobao k88 facebook排序后:





facebook google k88 taobao注意：数组排序是根据 ASCII 数字值来排序。所以我们在对数组进行排序时最好先将每个元素转换为小写后再排序。特殊变量： $[ 特殊变量 $[ 表示数组的第一索引值，一般都为 0 ，如果我们将 $[ 设置为 1，则数组的第一个索引值即为 1，第二个为 2，以此类推。实例如下：实例





#!/usr/bin/perl





# 定义数组@sites = qw(google taobao k88 facebook);print "网站:





@sites\n";





# 设置数组的第一个索引为 1$[ = 1;print "\@sites[1]:





$sites[1]\n";print "\@sites[2]:





$sites[2]\n";执行以上程序，输出结果为：网站:





google taobao k88 facebook@sites[1]:





google@sites[2]:





taobao一般情况我们不建议使用特殊变量 $[，在新版 Perl 中，该变量已废弃。合并数组数组的元素是以逗号来分割，我们也可以使用逗号来合并数组，如下所示：实例





#!/usr/bin/perl@numbers = (1,3,(4,5,6));print "numbers = @numbers\n";执行以上程序，输出结果为：numbers = 1 3 4 5 6也可以在数组中嵌入多个数组，并合并到主数组中：实例





#!/usr/bin/perl@odd = (1,3,5);@even = (2, 4, 6);@numbers = (@odd, @even);print "numbers = @numbers\n";执行以上程序，输出结果为：numbers = 1 3 5 2 4 6从列表中选择元素一个列表可以当作一个数组使用，在列表后指定索引值可以读取指定的元素，如下所示：实例





#!/usr/bin/perl$var = (5,4,3,2,1)[4];print "var 的值为 = $var\n"执行以上程序，输出结果为：var 的值为 = 1同样我们可以在数组中使用 .. 来读取指定范围的元素：实例





#!/usr/bin/perl@list = (5,4,3,2,1)[1..3];print "list 的值 = @list\n";执行以上程序，输出结果为：list 的值 = 4 3 2