Perl 数组

Perl 数组一个是存储标量值的列表变量，变量可以是不同类型。

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下：

  1. #!/usr/bin/perl
  3. @hits = (25, 30, 40);             
  4. @names = ("google", "baidu", "taobao");
  6. print "\$hits[0] = $hits[0]\n";
  7. print "\$hits[1] = $hits[1]\n";
  8. print "\$hits[2] = $hits[2]\n";
  9. print "\$names[0] = $names[0]\n";
  10. print "\$names[1] = $names[1]\n";
  11. print "\$names[2] = $names[2]\n";

程序中 $ 符号使用了 \ 来转义，让他原样输出。

执行以上程序，输出结果为：

  1. $hits[0] = 25
  2. $hits[1] = 30
  3. $hits[2] = 40
  4. $names[0] = google
  5. $names[1] = baidu
  6. $names[2] = taobao

创建数组

数组变量以 @ 符号开始，元素放在括号内，也可以以 qw 开始定义数组。

  1. @array = (1, 2, 'Hello');
  2. @array = qw/这是 一个 数组/;

第二个数组使用 qw// 运算符，它返回字符串列表，数组元素以空格分隔。当然也可以使用多行来定义数组：

  1. @days = qw/google
  2. taobao
  3. ...
  4. baidu/;

你也可以按索引来给数组赋值，如下所示：

  1. $array[0] = 'Monday';
  2. ...
  3. $array[6] = 'Sunday';

访问数组元素

访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下：

实例

  1. @sites = qw/google taobao baidu/;
  3. print "$sites[0]\n";
  4. print "$sites[1]\n";
  5. print "$sites[2]\n";
  6. print "$sites[-1]\n";    # 负数，反向读取

执行以上程序，输出结果为：

  1. google
  2. taobao
  3. baidu
  4. baidu

数组索引值从 0 开始，即 0 为第一个元素，1 为第二个元素，以此类推。

负数从反向开始读取，-1 为第一个元素， -2 为第二个元素

数组序列号

Perl 提供了可以按序列输出的数组形式，格式为 起始值 + .. + 结束值，实例如下：

实例

  1. #!/usr/bin/perl
  3. @var_10 = (1..10);
  4. @var_20 = (10..20);
  5. @var_abc = (a..z);
  7. print "@var_10\n";   # 输出 1 到 10
  8. print "@var_20\n";   # 输出 10 到 20
  9. print "@var_abc\n";  # 输出 a 到 z

执行以上程序，输出结果为：

  1. 1 2 3 4 5 6 7 8 9 10
  2. 10 11 12 13 14 15 16 17 18 19 20
  3. a b c d e f g h i j k l m n o p q r s t u v w x y z

数组大小

数组大小由数组中的标量上下文决定。：

  1. @array = (1,2,3);
  2. print "数组大小: ",标量 @array,"\n";

数组长度返回的是数组物理大小，而不是元素的个数，我们可以看以下实例：

实例

  1. #!/uer/bin/perl
  3. @array = (1,2,3);
  4. $array[50] = 4;
  6. $size = @array;
  7. $max_index = $#array;
  9. print "数组大小:  $size\n";
  10. print "最大索引: $max_index\n";

执行以上程序，输出结果为：

  1. 数组大小:  51
  2. 最大索引: 50

从输出的结果可以看出，数组元素只有四个，但是数组大小为 51。

添加和删除数组元素

Perl 提供了一些有用的函数来添加和删除数组元素。

如果你之前没有编程经验，可能会问什么是函数，其实我们之前使用的 print 即是一个输出函数。

下表列出了数组中常用的操作函数：

序号类型和描述
1push @ARRAY, LIST 将列表的值放到数组的末尾
2pop @ARRAY 弹出数组最后一个值，并返回它
3shift @ARRAY 弹出数组第一个值，并返回它。数组的索引值也依次减一。
4unshift @ARRAY, LIST 将列表放在数组前面，并返回新数组的元素个数。

实例

  1. #!/usr/bin/perl
  3. # 创建一个简单是数组
  4. @sites = ("google","baidu","taobao");
  5. print "1. \@sites  = @sites\n";
  7. # 在数组结尾添加一个元素
  8. push(@sites, "baidu");
  9. print "2. \@sites  = @sites\n";
  11. # 在数组开头添加一个元素
  12. unshift(@sites, "weibo");
  13. print "3. \@sites  = @sites\n";
  15. # 删除数组末尾的元素
  16. pop(@sites);
  17. print "4. \@sites  = @sites\n";
  19. # 移除数组开头的元素
  20. shift(@sites);
  21. print "5. \@sites  = @sites\n";

执行以上程序，输出结果为：

  1. 1. @sites  = google baidu taobao
  2. 2. @sites  = google baidu taobao baidu
  3. 3. @sites  = weibo google baidu taobao baidu
  4. 4. @sites  = weibo google baidu taobao
  5. 5. @sites  = google baidu taobao

切割数组

我们可以切割一个数组，并返回切割后的新数组：

实例

  1. #!/usr/bin/perl
  3. @sites = qw/google taobao baidu weibo qq facebook 网易/;
  5. @sites2 = @sites[3,4,5];
  7. print "@sites2\n";

执行以上程序，输出结果为：

  1. weibo qq facebook

数组索引需要指定有效的索引值，可以是正数后负数，每个索引值使用逗号隔开。

如果是连续的索引，可以使用 .. 来表示指定范围：

  1. #!/usr/bin/perl
  3. @sites = qw/google taobao baidu weibo qq facebook 网易/;
  5. @sites2 = @sites[3..5];
  7. print "@sites2\n";

执行以上程序，输出结果为：

  1. weibo qq facebook

替换数组元素

Perl 中数组元素替换使用 splice() 函数，语法格式如下：

  1. splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

参数说明：

  • @ARRAY：要替换的数组。
  • OFFSET：起始位置。
  • LENGTH：替换的元素个数。
  • LIST：替换元素列表。

以下实例从第6个元素开始替换数组中的5个元素:

实例

  1. #!/usr/bin/perl
  3. @nums = (1..20);
  4. print "替换前 - @nums\n";
  6. splice(@nums, 5, 5, 21..25); 
  7. print "替换后 - @nums\n";

执行以上程序，输出结果为：

  1. 替换前 - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  2. 替换后 - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

将字符串转换为数组

Perl 中将字符串转换为数组使用 split() 函数，语法格式如下：

  1. split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

参数说明：

  • PATTERN：分隔符，默认为空格。
  • EXPR：指定字符串数。
  • LIMIT：如果指定该参数，则返回该数组的元素个数。

实例

  1. #!/usr/bin/perl
  3. # 定义字符串
  4. $var_test = "baidu";
  5. $var_string = "www-baidu-com";
  6. $var_names = "google,taobao,baidu,weibo";
  8. # 字符串转为数组
  9. @test = split('', $var_test);
  10. @string = split('-', $var_string);
  11. @names  = split(',', $var_names);
  13. print "$test[3]\n";  # 输出 d
  14. print "$string[2]\n";  # 输出 com
  15. print "$names[3]\n";   # 输出 weibo

执行以上程序，输出结果为：

  1. d
  2. com
  3. weibo

将数组转换为字符串

Perl 中将数组转换为字符串使用 join() 函数，语法格式如下：

  1. join EXPR, LIST

参数说明：

  • EXPR：连接符。
  • LIST：列表或数组。

实例

  1. #!/usr/bin/perl
  3. # 定义字符串
  4. $var_string = "www-baidu-com";
  5. $var_names = "google,taobao,baidu,weibo";
  7. # 字符串转为数组
  8. @string = split('-', $var_string);
  9. @names  = split(',', $var_names);
  12. # 数组转为字符串
  13. $string1 = join( '-', @string );
  14. $string2 = join( ',', @names );
  16. print "$string1\n";
  17. print "$string2\n";

执行以上程序，输出结果为：

  1. www-baidu-com
  2. google,taobao,baidu,weibo

数组排序

Perl 中数组排序使用 sort() 函数，语法格式如下：

  1. sort [ SUBROUTINE ] LIST

参数说明：

  • SUBROUTINE：指定规则。
  • LIST：列表或数组。

实例

  1. #!/usr/bin/perl
  3. # 定义数组
  4. @sites = qw(google taobao baidu facebook);
  5. print "排序前: @sites\n";
  7. # 对数组进行排序
  8. @sites = sort(@sites);
  9. print "排序后: @sites\n";

执行以上程序，输出结果为：

  1. 排序前: google taobao baidu facebook
  2. 排序后: facebook google baidu taobao
注意：数组排序是根据 ASCII 数字值来排序。所以我们在对数组进行排序时最好先将每个元素转换为小写后再排序。

特殊变量： $[

特殊变量 $[ 表示数组的第一索引值，一般都为 0 ，如果我们将 $[ 设置为 1，则数组的第一个索引值即为 1，第二个为 2，以此类推。实例如下：

实例

  1. #!/usr/bin/perl
  3. # 定义数组
  4. @sites = qw(google taobao baidu facebook);
  5. print "网站: @sites\n";
  7. # 设置数组的第一个索引为 1
  8. $[ = 1;
  10. print "\@sites[1]: $sites[1]\n";
  11. print "\@sites[2]: $sites[2]\n";

执行以上程序，输出结果为：

  1. 网站: google taobao baidu facebook
  2. @sites[1]: google
  3. @sites[2]: taobao
一般情况我们不建议使用特殊变量 $[，在新版 Perl 中，该变量已废弃。

合并数组

数组的元素是以逗号来分割，我们也可以使用逗号来合并数组，如下所示：

实例

  1. #!/usr/bin/perl
  3. @numbers = (1,3,(4,5,6));
  5. print "numbers = @numbers\n";

执行以上程序，输出结果为：

  1. numbers = 1 3 4 5 6

也可以在数组中嵌入多个数组，并合并到主数组中：

  1. #!/usr/bin/perl
  3. @odd = (1,3,5);
  4. @even = (2, 4, 6);
  6. @numbers = (@odd, @even);
  8. print "numbers = @numbers\n";

执行以上程序，输出结果为：

  1. numbers = 1 3 5 2 4 6

从列表中选择元素

一个列表可以当作一个数组使用，在列表后指定索引值可以读取指定的元素，如下所示：

实例

  1. #!/usr/bin/perl
  3. $var = (5,4,3,2,1)[4];
  5. print "var 的值为 = $var\n"

执行以上程序，输出结果为：

  1. var 的值为 = 1

同样我们可以在数组中使用 .. 来读取指定范围的元素：

  1. #!/usr/bin/perl
  3. @list = (5,4,3,2,1)[1..3];
  5. print "list 的值 = @list\n";

执行以上程序，输出结果为：

  1. list 的值 = 4 3 2

splice()函数小结

1. 替换数组元素

  1. splice(@ARRAY,OFFSET,LENGTH,LIST)
  • @ARRAY：要替换的数组。
  • OFFSET：起始位置。
  • LENGTH：替换的元素个数。
  • LIST：替换元素列表。

实例

  1. @a = (1..5);
  2. @b = (a..h);
  3. print "原始  @a\n";
  4. splice(@a , 2 , 2 , @b);
  5. print "插入  @a\n";
  6. `

结果：

  1. 原始  1 2 3 4 5
  2. 插入  1 2 a b c d e f g h 5

2. 删除

  1. splice(@ARRAY,OFFSET,LENGTH)
  • @ARRAY：要删除的数组。
  • OFFSET：起始位置。
  • LENGTH：删除的元素个数。

实例

  1. @a = (1..20);
  2. print "原始  @a\n";
  3. splice(@a , 2 , 6);
  4. print "删除  @a\n";

结果：

  1. 原始  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  2. 删除  1 2 9 10 11 12 13 14 15 16 17 18 19 20

3. 删除到末尾

  1. splice(@ARRAY,OFFSET)
  • @ARRAY：要删除到结尾的数组。
  • OFFSET：起始位置。

实例

  1. @a = (1..20);
  2. print "原始  @a\n";
  3. splice(@a , 2);
  4. print "删除  @a\n";

结果：

  1. 原始  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  2. 删除  1 2

关于数组排序的总结

sort 函数遍历原始数组的每两个元素，把左边的值放入变量 $a，右边的值放入变量 $b。 然后调用比较函数。如果 $a 的内容应该在左边的话， 比较函数会返回 1；如果 $b 应该在左边的话，返回 -1，两者一样的话，返回 0。

依据数值大小排序:

  1. my @line=qw /1 2 34 9 12 4 3 8 67 53 1 42 1 17 3 0/;
  2. print "sorted numbers: ";
  4. foreach my $item(sort {$a <=> $b} @line){
  5.     print "$item ";
  6. }

代码中使用 <=> 比较函数，表示依据数值字面大小排序，此为升序，若要降序排序，仅需调换标量 $a 和 $b 位置即可。

依据第一个字符 ASCII 值排序: 将上述代码中的比较函数改为 cmp 函数即可，这也是 perl 默认的比较函数。

split 扩展说明

  1. split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

参数说明：

  • PATTERN：分隔符，默认为空格。
  • EXPR：指定字符串数。
  • LIMIT：如果指定该参数，则返回该数组的元素个数。

当采用LIMIT参数时，是指将数组分割成LIMIT个元素。而并非返回依分割符分割成的个数。举例：

  1. $str = "a b c d e f";
  2. print ("\$str:$str\n");
  3. @arry = split (' ',$str);
  4. $ary_len = @arry;
  5. print("\@arry:@arry\n\$ary_len:$ary_len\n");
  6. print("\@arry[4]:@arry[4] \@arry[5]:@arry[5]\n");
  7. @arry2 = split (' ',$str,3);
  8. $ary_len2 = @arry2;
  9. print("\@arry2:@arry2\n\$ary_len2:$ary_len2\n");
  10. print("\@arry2[0]:@arry2[0]\n\@arry2[1]:@arry2[1]\n\@arry2[2]:@arry2[2]\n");

输出结果：

  1. $str:a b c d e f
  2. @arry:a b c d e f
  3. $ary_len:6
  4. @arry[4]:e @arry[5]:f
  5. @arry2:a b c d e f
  6. $ary_len2:3
  7. @arry2[0]:a
  8. @arry2[1]:b
  9. @arry2[2]:c d e f

特殊标识 $_，表示遍历数组。

实例：

  1. #!/usr/bin/perl
  3. # 定义数组
  4. @sites = qw(google taobao baidu facebook);
  5. foreach(@sites){
  6.     print $_."\n";
  7. }

执行以上程序，输出结果为：

  1. google
  2. taobao
  3. baidu
  4. facebook