草庐IT

Perl 数组

runoob 2023-04-07 原文

Perl 数组

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

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

实例

#!/usr/bin/perl @hits = (25, 30, 40); @names = ("google", "runoob", "taobao"); print "\$hits[0] = $hits[0]\n"; print "\$hits[1] = $hits[1]\n"; print "\$hits[2] = $hits[2]\n"; print "\$names[0] = $names[0]\n"; print "\$names[1] = $names[1]\n"; print "\$names[2] = $names[2]\n";

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

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

$hits[0] = 25
$hits[1] = 30
$hits[2] = 40
$names[0] = google
$names[1] = runoob
$names[2] = taobao

创建数组

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

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

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

@days = qw/google
taobao
...
runoob/;

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

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

访问数组元素

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

实例

@sites = qw/google taobao runoob/; print "$sites[0]\n"; print "$sites[1]\n"; print "$sites[2]\n"; print "$sites[-1]\n"; # 负数，反向读取

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

google
taobao
runoob
runoob

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

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

数组序列号

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

实例

#!/usr/bin/perl @var_10 = (1..10); @var_20 = (10..20); @var_abc = ('a'..'z'); print "@var_10\n"; # 输出 1 到 10 print "@var_20\n"; # 输出 10 到 20 print "@var_abc\n"; # 输出 a 到 z

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

1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
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

数组大小

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

实例

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

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

数组大小: 3

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

实例

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

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

数组大小:  51
最大索引: 50

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

添加和删除数组元素

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

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

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

序号 类型和描述
1 push @ARRAY, LIST

将列表的值放到数组的末尾
2 pop @ARRAY

删除数组的最后一个值
3 shift @ARRAY

弹出数组第一个值，并返回它。数组的索引值也依次减一。
4 unshift @ARRAY, LIST

将列表放在数组前面，并返回新数组的元素个数。

实例

#!/usr/bin/perl # 创建一个简单是数组 @sites = ("google","runoob","taobao"); $new_size = @sites ; print "1. \@sites = @sites\n"."原数组长度 ：$new_size\n"; # 在数组结尾添加一个元素 $new_size = push(@sites, "baidu"); print "2. \@sites = @sites\n"."新数组长度 ：$new_size\n"; # 在数组开头添加一个元素 $new_size = unshift(@sites, "weibo"); print "3. \@sites = @sites\n"."新数组长度 ：$new_size\n"; # 删除数组末尾的元素 $new_byte = pop(@sites); print "4. \@sites = @sites\n"."弹出元素为 ：$new_byte\n"; # 移除数组开头的元素 $new_byte = shift(@sites); print "5. \@sites = @sites\n"."弹出元素为 ：$new_byte\n";

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

切割数组

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

实例

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

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

weibo qq facebook

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

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

实例

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

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

weibo qq facebook

替换数组元素

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

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

参数说明：

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

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

实例

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

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

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

将字符串转换为数组

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

split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

参数说明：

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

实例

#!/usr/bin/perl # 定义字符串 $var_test = "runoob"; $var_string = "www-runoob-com"; $var_names = "google,taobao,runoob,weibo"; # 字符串转为数组 @test = split('', $var_test); @string = split('-', $var_string); @names = split(',', $var_names); print "$test[3]\n"; # 输出 o print "$string[2]\n"; # 输出 com print "$names[3]\n"; # 输出 weibo

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

o
com
weibo

将数组转换为字符串

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

join EXPR, LIST

参数说明：

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

实例

#!/usr/bin/perl # 定义字符串 $var_string = "www-runoob-com"; $var_names = "google,taobao,runoob,weibo"; # 字符串转为数组 @string = split('-', $var_string); @names = split(',', $var_names); # 数组转为字符串 $string1 = join( '-', @string ); $string2 = join( ',', @names ); print "$string1\n"; print "$string2\n";

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

www-runoob-com
google,taobao,runoob,weibo

数组排序

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

sort [ SUBROUTINE ] LIST

参数说明：

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

实例

#!/usr/bin/perl # 定义数组 @sites = qw(google taobao runoob facebook); print "排序前: @sites\n"; # 对数组进行排序 @sites = sort(@sites); print "排序后: @sites\n";

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

排序前: google taobao runoob facebook
排序后: facebook google runoob taobao

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

特殊变量： $[

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

实例

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

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

网站: google taobao runoob 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
Perl数组spanclasshl

有关Perl 数组的更多相关文章

  1. ruby-on-rails - 在 Ruby 中循环遍历多个数组 - 2

    我有多个ActiveRecord子类Item的实例数组，我需要根据最早的事件循环打印。在这种情况下，我需要打印付款和维护日期，如下所示:ItemAmaintenancerequiredin5daysItemBpaymentrequiredin6daysItemApaymentrequiredin7daysItemBmaintenancerequiredin8days我目前有两个查询，用于查找maintenance和payment项目(非排他性查询)，并输出如下内容:paymentrequiredin...maintenancerequiredin...有什么方法可以改善上述(丑陋的)代

  2. ruby - 如何将脚本文件的末尾读取为数据文件(Perl 或任何其他语言) - 2

    我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚

  3. ruby - 多次弹出/移动 ruby​​ 数组 - 2

    我的代码目前看起来像这样numbers=[1,2,3,4,5]defpop_threepop=[]3.times{pop有没有办法在一行中完成pop_three方法中的内容？我基本上想做类似numbers.slice(0,3)的事情，但要删除切片中的数组项。嗯...嗯，我想我刚刚意识到我可以试试slice! 最佳答案 是numbers.pop(3)或者numbers.shift(3)如果你想要另一边。 关于ruby-多次弹出/移动ruby​​数组，我们在StackOverflow上找到一

  4. ruby - 将数组的内容转换为 int - 2

    我需要读入一个包含数字列表的文件。此代码读取文件并将其放入二维数组中。现在我需要获取数组中所有数字的平均值，但我需要将数组的内容更改为int。有什么想法可以将to_i方法放在哪里吗？ClassTerraindefinitializefile_name@input=IO.readlines(file_name)#readinfile@size=@input[0].to_i@land=[@size]x=1whilex 最佳答案 只需将数组映射为整数:@land边注如果你想得到一条线的平均值，你可以这样做:values=@input[x]

  5. ruby - 通过 erb 模板输出 ruby​​ 数组 - 2

    我正在使用puppet为ruby​​程序提供一组常量。我需要提供一组主机名，我的程序将对其进行迭代。在我之前使用的bash脚本中，我只是将它作为一个puppet变量hosts=>"host1,host2"我将其提供给bash脚本作为HOSTS=显然这对ruby​​不太适用——我需要它的格式hosts=["host1","host2"]自从phosts和putsmy_array.inspect提供输出["host1","host2"]我希望使用其中之一。不幸的是，我终其一生都无法弄清楚如何让它发挥作用。我尝试了以下各项:我发现某处他们指出我需要在函数调用前放置“function_”……这

  6. ruby - 检查数组是否在增加 - 2

    这个问题在这里已经有了答案:Checktoseeifanarrayisalreadysorted?(8个答案)关闭9年前。我只是想知道是否有办法检查数组是否在增加？这是我的解决方案，但我正在寻找更漂亮的方法:n=-1@arr.flatten.each{|e|returnfalseife

  7. ruby - 如果指定键的值在数组中相同，如何合并哈希 - 2

    我有一个这样的哈希数组:[{:foo=>2,:date=>Sat,01Sep2014},{:foo2=>2,:date=>Sat,02Sep2014},{:foo3=>3,:date=>Sat,01Sep2014},{:foo4=>4,:date=>Sat,03Sep2014},{:foo5=>5,:date=>Sat,02Sep2014}]如果:date相同，我想合并哈希值。我对上面数组的期望是:[{:foo=>2,:foo3=>3,:date=>Sat,01Sep2014},{:foo2=>2,:foo5=>5:date=>Sat,02Sep2014},{:foo4=>4,:dat

  8. ruby - 在 Ruby 中用键盘诅咒数组浏览 - 2

    我正在尝试在Ruby中制作一个cli应用程序，它接受一个给定的数组，然后将其显示为一个列表，我可以使用箭头键浏览它。我觉得我已经在Ruby中看到一个库已经这样做了，但我记不起它的名字了。我正在尝试对soundcloud2000中的代码进行逆向工程做类似的事情，但他的代码与SoundcloudAPI的使用紧密耦合。我知道cursesgem，我正在考虑更抽象的东西。广告有没有人见过可以做到这一点的库或一些概念证明的Ruby代码可以做到这一点？ 最佳答案 我不知道这是否是您正在寻找的，但也许您可以使用我的想法。由于我没有关于您要完成的工作

  9. ruby - 如何在 Grape 中定义哈希数组？ - 2

    我使用Ember作为我的前端和GrapeAPI来为我的API提供服务。前端发送类似:{"service"=>{"name"=>"Name","duration"=>"30","user"=>nil,"organization"=>"org","category"=>nil,"description"=>"description","disabled"=>true,"color"=>nil,"availabilities"=>[{"day"=>"Saturday","enabled"=>false,"timeSlots"=>[{"startAt"=>"09:00AM","endAt"=>

  10. ruby - 使用多个数组创建计数 - 2

    我正在尝试按0-9和a-z的顺序创建数字和字母列表。我有一组值value_array=['0','1','2','3','4','5','6','7','8','9','a','b'，'光盘'，'e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','','u','v','w','x','y','z']和一个组合列表的数组，按顺序，这些数字可以产生x个字符，比方说三个list_array=[]和一个当前字母和数字组合的数组(在将它插入列表数组之前我会把它变成一个字符串，]current_combo['0','0','0']

随机推荐