我們可以在 Perl 中使用 join() 函式重新連線陣列元素並形成一個長的標量字串。此函式具有以下語法：語法join EXPR, LIST此函式將 LIST 的各個字串連線成一個字串，欄位之間用 EXPR 的值分隔，並返回該字串。以下是一個示例：示例 即時演示#!/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 ... 閱讀更多

讓我們深入瞭解一個名為 split() 的 Perl 函式，它具有以下語法：語法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]";這裡我們 ... 閱讀更多