我们可以使用 Perl 中的 join() 函数重新连接数组元素并形成一个长的标量字符串。此函数具有以下语法：语法join EXPR, LIST此函数使用 EXPR 的值将 LIST 的各个字符串连接成单个字符串，并返回该字符串。以下是一个示例：示例 在线演示#!/usr/bin/perl # 定义字符串 $var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens"; $var_names = "Larry, David, Roger, Ken, Michael, Tom"; # 将上述字符串转换为数组。 @string = split('-', $var_string); @names = split(', ', $var_names); $string1 = join( '-', @string ); $string2 = join( ', ', @names ... 阅读更多

让我们来看一下 Perl 中名为 split() 的函数，它具有以下语法：语法split [ PATTERN [ , EXPR [ , LIMIT ] ] ]此函数将字符串拆分为字符串数组并返回它。如果指定了 LIMIT，则最多拆分为该数量的字段。如果省略 PATTERN，则按空格拆分。以下是一个示例：示例 在线演示#!/usr/bin/perl # 定义字符串 $var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens"; $var_names = "Larry, David, Roger, Ken, Michael, Tom"; # 将上述字符串转换为数组。 @string = split('-', $var_string); @names = split(', ', $var_names); print "$string[3]";    # 这将打印 ... 阅读更多

现在我们将介绍另一个名为 splice() 的函数，它具有以下语法：语法splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]此函数将删除 @ARRAY 中由 OFFSET 和 LENGTH 指定的元素，如果指定了 LIST，则用 LIST 替换它们。最后，它返回从数组中删除的元素。以下是一个示例：示例 在线演示#!/usr/bin/perl @nums = (1..20); print "Before - @nums"; splice(@nums, 5, 5, 21..25); print "After - @nums";输出这将产生以下结果：Before - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 阅读更多

您还可以从数组中提取“切片”——也就是说，您可以选择数组中的多个项目以生成另一个数组。示例 在线演示#!/usr/bin/perl @days = qw/Mon Tue Wed Thu Fri Sat Sun/; @weekdays = @days[3, 4, 5]; print "@weekdays";输出这将产生以下结果：Thu Fri Sat切片的规范必须包含有效索引列表，正数或负数，每个索引之间用逗号分隔。为了提高速度，您还可以使用 .. 范围运算符：示例 在线演示#!/usr/bin/perl @days = qw/Mon Tue Wed Thu Fri Sat Sun/; @weekdays = @days[3..5]; print "@weekdays";输出这将 ... 阅读更多

Perl 提供了许多有用的函数来在数组中添加和删除元素。您可能想知道什么是函数？到目前为止，您已使用 print 函数来打印各种值。同样，还有各种其他函数，有时也称为子例程，可用于各种其他功能。序号类型和说明1push @ARRAY, LIST将列表的值推送到数组的末尾。2pop @ARRAY弹出并返回数组的最后一个值。3shift @ARRAY将数组的第一个值移出并返回它，将数组缩短 1 并将所有内容向下移动。4unshift @ARRAY, ... 阅读更多

可以使用数组上的标量上下文来确定 Perl 中数组的大小——返回值将是数组中元素的数量：@array = (1, 2, 3); print "Size: ", scalar @array, "";返回值始终是数组的物理大小，而不是有效元素的数量。您可以使用此片段演示这一点以及 scalar @array 和 $#array 之间的区别，如下所示：示例 在线演示#!/usr/bin/perl @array = (1, 2, 3); $array[50] = 4; $size = @array; $max_index = $#array; print "Size: $size"; print "Max Index: $max_index";输出这 ... 阅读更多

Perl 为顺序数字和字母提供了一种快捷方式。例如，与其键入每个元素来计算到 100，我们可以执行以下操作：示例 在线演示#!/usr/bin/perl @var_10 = (1..10); @var_20 = (10..20); @var_abc = (a..z); print "@var_10"; # 打印从 1 到 10 的数字 print "@var_20"; # 打印从 10 到 20 的数字 print "@var_abc"; # 打印从 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

访问 Perl 中数组的单个元素时，必须在变量名前加美元符号 ($) ，然后在变量名后方方括号中添加元素索引。例如：示例 在线演示#!/usr/bin/perl @days = qw/Mon Tue Wed Thu Fri Sat Sun/; print "$days[0]"; print "$days[1]"; print "$days[2]"; print "$days[6]"; print "$days[-1]"; print "$days[-7]";输出这将产生以下结果：Mon Tue Wed Sun Sun Mon数组索引从零开始，因此要访问第一个元素，您需要给出 0 作为索引。您还可以给出负索引，在这种情况下，您选择 ... 阅读更多

Perl 数组变量以 @ 符号开头，并使用括号或 qw 运算符填充。例如：@array = (1, 2, 'Hello'); @array = qw/This is an array/;第二行使用 qw// 运算符，它返回一个字符串列表，通过空格分隔分隔的字符串。在此示例中，这导致了一个四个元素的数组；第一个元素是“this”，最后一个（第四个）是“array”。这意味着您可以使用不同的行，如下所示：@days = qw/Monday Tuesday ... Sunday/;您还可以通过单独分配每个值来填充数组，如下所示：$array[0] = 'Monday'; ... $array[6] = 'Sunday';

Perl 数组是一个变量，它存储有序的标量值列表。数组变量前面带有“at”（@）符号。要引用数组的单个元素，您将使用美元符号 ($) 加上变量名，后跟方括号中的元素索引。示例这是一个使用数组变量的简单示例： 在线演示#!/usr/bin/perl @ages = (25, 30, 40); @names = ("John Paul", "Lisa", "Kumar"); print "\$ages[0] = $ages[0]"; print "\$ages[1] = $ages[1]"; print "\$ages[2] = $ages[2]"; print "\$names[0] = $names[0]"; print "\$names[1] = $names[1]"; print "\$names[2] = $names[2]";这里我们 ... 阅读更多