Perl配列

Perl 配列は、スカラー値を格納するリスト変数です。変数にはさまざまな型を使用できます。

配列変数は @ で始まります。配列要素にアクセスするには、 $ + 変数名 + [インデックス値]の形式で読み取ります。例は次のとおりです。

例

#!/usr/bin/perl @hits = ( 25 , 30 , 40 ) ; @names = ( " google " 、 " codercto " 、 "タオバオ" ) ;​ " $ヒット[0] = $ヒット[0] n " ; " $ヒット[1] = $ヒット[1] n " ; " $ヒット[2] = $ヒット[2] n " ; " $ names [0] = $names [0] n " ; " $ names [1] = $names [1] n " ; " $ names[2] = $names [2] n " ;

プログラム中では$記号をでエスケープし、そのまま出力できます。

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = タオバオ

配列を作成する

配列変数は@記号で始まり、要素は括弧内に置かれます。 qwで始まる配列を定義することもできます。

 @array = (1, 2, 'Hello');@array = qw/これは配列です/;

2 番目の配列ではqw//演算子を使用し、配列要素がスペースで区切られた文字列のリストを返します。もちろん、複数行を使用して配列を定義することもできます。

 @days = qw/googletaabao...codercto/;

次のように、インデックスを使用して配列に値を割り当てることもできます。

 $array[0] = '月曜日';...$array[6] = '日曜日';

配列要素にアクセスする

配列要素にアクセスするには、 $ + 変数名 + [インデックス値]の形式で読み取ります。例は次のとおりです。

例

@sites = qw/グーグルタオバオコーデックト/ ; " $sites [0] n " ; " $sites [1] n " ; " $sites [2] n " ; " $sites [-1] n " ; # 負の数、逆方向に読み取ります

googletaovaocoderctocodercto

配列のインデックス値は 0 から始まります。つまり、0 が最初の要素、1 が 2 番目の要素などとなります。

負の数値は逆方向から読み取られます。-1 が最初の要素、-2 が 2 番目の要素です。

配列のシーケンス番号

Perl では、開始値 + .. + 終了値 という形式で出力できる配列形式が提供されています。

例

#!/usr/bin/perl @var_1 0 = ( 1 . .10 ) ; @ var_2 0 = ( 10 . .20 ) ; @var_abc = ( a .. z ) ; " @var_10 n " # 1 ～ 10 を出力します。印刷する" @var_20 n " ; # 10 から 20 を出力します印刷する" @var_abc n " # a から z までを出力します。

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

配列サイズ

配列のサイズは、配列内のスカラー コンテキストによって決まります。 :

 @array = (1,2,3);print "配列サイズ: ",スカラー @array,"n";

配列の長さは、要素の数ではなく、配列の物理サイズを返します。次の例を見てください。

例

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) ; $ array [ 50 ] = 4 ; $ max_index = $ # array ;​ "配列サイズ: $size n " ; "最大インデックス: $max_index n " ;

配列サイズ: 51 最大インデックス: 50

出力からわかるように、配列要素は 4 つだけですが、配列サイズは 51 です。

配列要素の追加と削除

Perl には、配列要素を追加および削除するための便利な関数がいくつか用意されています。

これまでにプログラミングの経験がなければ、関数とは何なのか疑問に思うかもしれません。実際、前に使用したprint は出力関数です。

次の表に、配列で一般的に使用される演算関数を示します。

シリアルナンバー	種類と説明
1	@ARRAY、LISTをプッシュ リストの値を配列の最後に置きます
2	ポップ@ARRAY 配列の最後の値をポップして返します。
3	シフト @ARRAY 配列の最初の値をポップして返します。配列のインデックス値も 1 ずつ減ります。
4	シフト解除 @ARRAY、LIST リストを配列の前に配置し、新しい配列の要素の数を返します。

例

#!/usr/bin/perl #単純な配列を作成する@sites = ( " google " 、 " codercto " 、 "タオバオ" ) ;​ " 1. @ sites = @sites n " ; # 配列の末尾に要素を追加しますプッシュ( @sites 、 「 baidu 」 ) ;​ " 2. @ sites = @sites n " ; # 配列の先頭に要素を追加しますunshift ( @sites 、 「 weibo 」 ) ;​ " 3. @ sites = @sites n " ; # 配列の末尾の要素を削除しますポップ( @sites ) ;​ " 4. @ sites = @sites n " ; # 配列の先頭の要素を削除しますシフト( @sites ) ;​ " 5. @サイト = @ サイトn " ;

カットアレイ

配列をカットし、カット後に新しい配列を返すことができます。

例

#!/usr/bin/perl @sites = qw/ Googleタオバオ codercto weibo qq Facebook Netease / ; @sites2 = @sites [ 3 , 4 , 5 ] ; " @sites2 n " ;

ウェイボー QQ フェイスブック

配列インデックスには有効なインデックス値を指定する必要があります。これには、正の数値の後に負の数値を指定できます。各インデックス値はカンマで区切られます。

連続インデックスの場合は、 .. を使用して指定範囲を示すことができます。

例

#!/usr/bin/perl @sites = qw/ googleタオバオ codercto weibo qq facebook Netease / ; @ sites2 = @sites [ 3 .5 ] ; " @sites2 n " ;

ウェイボー QQ フェイスブック

配列要素を置換する

splice() 関数は、Perl で配列要素を置換するために使用されます。構文形式は次のとおりです。

スプライス @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

パラメータの説明:

@ARRAY: 置換される配列。

オフセット: 開始位置。

LENGTH: 置換する要素の数。

LIST: 置換要素のリスト。

次の例では、配列内の 6 番目の要素から始まる 5 つの要素を置き換えます。

例

#!/usr/bin/perl @nums = ( 1 . .20 ) ;​ "置換前- @ nums n " ;​​​​​​​​​"置換後 - @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() 関数を使用します。構文は次のとおりです。

分割 [ PATTERN [ , EXPR [ , LIMIT ] ] ]

パラメータの説明:

パターン: 区切り文字、デフォルトはスペースです。

EXPR: 文字列の数を指定します。

LIMIT: このパラメータが指定されている場合、配列内の要素の数が返されます。

例

#!/usr/bin/perl #文字列を定義する$var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google,taobao, codercto ,weibo " ; @test =スプリット( ' ' , $ var_test ) ; @string =スプリット( ' - ' , $var_string ) ; @names =スプリット( ' , ' , $var_names ) ; " $test [3] n " ; # 出力印刷する" $string [2] n " # com を出力します。印刷する" $names [3] n " ; # weibo を出力します。

オコムウェイボ

配列を文字列に変換する

Perl では、join() 関数を使用して配列を文字列に変換します。構文は次のとおりです。

 EXPR、LIST を結合する

パラメータの説明:

EXPR: コネクタ。

LIST: リストまたは配列。

例

#!/usr/bin/perl #文字列を定義する$var_string = " www-codercto-com " ; $var_names = " google,taobao,codercto,weibo " ; # 文字列を配列に変換します@string = split ( ' - ' , $var_string ) ; @names = split ( ' , ' , $var_names ) ; # 配列を文字列に変換します$string1 =結合( ' - ' 、 @弦) ; $string2 =結合( ' 、 ' 、 @names ) ;印刷する" $string1 n " ; " $string2 n " ;

 www-codercto-comgoogle、タオバオ、codercto、weibo

配列のソート

Perl での配列の並べ替えには sort() 関数が使用され、構文は次のとおりです。

ソート [サブルーチン] リスト

パラメータの説明:

サブルーチン: ルールを指定します。

LIST: リストまたは配列。

例

#!/usr/bin/perl #配列を定義する@sites = qw( googleタオバオ codercto facebook ) ; "並べ替え前: @sites n " # 配列を並べ替えます@sites =並べ替え( @sites ) ; "並べ替え後: @sites n " ;

並べ替え前: google taobao codercto facebook 並べ替え後: facebook google codercto taobao

注: 配列の並べ替えは ASCII 数値に基づいて行われます。したがって、配列を並べ替えるときは、並べ替え前に各要素を小文字に変換するのが最善です。

特殊変数: $[

特殊変数$[ は、配列の最初のインデックス値を表し、通常は 0 です。 $[ を1 に設定すると、配列の最初のインデックス値は 1、2 番目のインデックス値は 2 になります。例は次のとおりです。

例

#!/usr/bin/perl #配列を定義する@sites = qw( googleタオバオ codercto facebook ) ; " Web サイト: @sites n " ; # 配列の最初のインデックスを 1 に設定します$ [ = 1 ; " @ sites[1]: $ sites [1] n " ; " @ sites[2]: $sites [2] n " ;

ウェブサイト: google 淘宝網 codercto facebook@sites[1]: google@sites[2]: 淘宝網

一般に、特殊変数$[の使用はお勧めしません。Perl の新しいバージョンでは、この変数は廃止されました。

配列を結合する

以下に示すように、配列の要素はカンマで区切られます。カンマを使用して配列を結合することもできます。

例

#!/usr/bin/perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) ;​ "数値 = @numbers n " ;

数字 = 1 3 4 5 6

配列内に複数の配列を埋め込み、それらをメイン配列にマージすることもできます。

例

#!/usr/bin/perl @odd = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ;​​​​​​​​​"数値 = @numbers n " ;

数字 = 1 3 5 2 4 6

リストから要素を選択

以下に示すように、リストが指定された要素を読み取ることができるようにした後で、リストを配列として使用できます。

例

#!/usr/bin/perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " var の値は = $var n "

 var の値は = 1

同様に、配列内で.. を使用して、指定された範囲内の要素を読み取ることができます。

例

#!/usr/bin/perl @list = ( 5 , 4 , 3 , 2 , 1 ) [ .3 ] ;​​​ "リストの値 = @list n " ;

リストの値 = 4 3 2