パールの名言

著者：Eve Cole 更新時間：2024-12-26 11:12:01

参照はポインタです。Perl 参照は、変数、配列、ハッシュテーブル (連想配列とも呼ばれます)、またはサブルーチンを指すことができるスカラー型であり、プログラム内のどこにでも適用できます。

参照の作成

変数を定義するときは、変数名の前にを追加して、変数への参照を取得します。次に例を示します。

 $scalarref = $foo; # スカラー変数参照 $arrayref = %ENV; # ハッシュ参照 $coderef = *foo; # GLOB ハンドル参照

[] 定義を使用して、配列内で匿名の配列参照を使用できます。

 $aref= [ 1,"foo",undef,13 ];

匿名配列の要素は依然として匿名配列である可能性があるため、このメソッドを使用して配列の配列を構築でき、任意の次元の配列を構築できます。

私の $aref = [ [1, 2, 3], [4, 5, 6], [7, 8, 9],]

ハッシュでは、{} を使用して定義された匿名ハッシュ参照を使用できます。

 $href= { 4 月 =>4、8 月 =>8 };

サブルーチン名を持たない匿名のサブルーチン参照を作成することもできます。

 $coderef = sub { print "Codercto!n" };

逆参照

逆参照は、さまざまなタイプに応じて $、@、または % を使用してキャンセルできます。例は次のとおりです。

例

#!/usr/bin/perl $var = 10 ; # $r は $var スカラーを参照します。 $r = $var ; # ローカルに保存されている $r の変数値を出力します。印刷する" $varは: " , $ $r , " n " ; @var = ( 1 , 2 , 3 ) ; # $r は @var 配列を参照します$r = @var ; # ローカルに保存されている $r の変数値を出力します印刷する" @varは: " , @ $ r , " n " ; # $ rは% var配列を参照します。 $r = %var ; # ローカルに保存されている $r の変数値を出力します印刷する" %var は: " 、 % $r 、 " n " ;

上記の例を実行した結果は次のようになります。

 10 は: 101 2 3 は: 123%var は: key110key220

変数の型がわからない場合は、 ref を使用してそれを決定できます。次の値がない場合は false を返します。

 SCALARRAYHASHCODEGLOBREF

例は次のとおりです。

例

#!/usr/bin/perl $var = 10 ; $r = $ var ; " rの参照型: " , ref ( $ r ) , " n " ; @var = ( 1 , 2 , 3 ) ; " r の参照型: " , ref ( $r ) , " n " ; $r = % var = ( ' key1 ' => 10 , ' key2 ' = > 20 ) ; " r の参照型: " , ref ( $r ) , " n " ;

上記の例を実行した結果は次のようになります。

 rの参照型：SCALAR rの参照型：ARRAYr 参照型：HASH

循環参照

循環参照は、2 つの参照が相互に含まれる場合に発生します。慎重に使用する必要があります。そうしないと、次の例のようにメモリリークが発生します。

例

#!/usr/bin/perl 私の$foo = 100 ; $foo = $foo ; " foo の値は次のとおりです: " , $ $foo , " n " ;

上記の例を実行した結果は次のようになります。

 foo の値: REF(0x9aae38)

参照関数

関数参照形式: &

リファレンス関数の呼び出し形式: & + 作成したリファレンス名。

例は次のとおりです。

例

#!/usr/bin/perl # 関数定義サブプリントハッシュ{ 私の( % hash ) = @_ ; $item ( %ハッシュ) { 印刷する"要素: $item n " ; } %hash = ( ' name ' => ' codercto ' , ' age ' => 3 ) # 関数への参照を作成します。 $cref = & PrintHash ; # 参照を使用して関数を呼び出す& $cref ( %hash ) ;

上記の例を実行した結果は次のようになります。

要素: 年齢 要素: 3 要素: 名前 要素: codercto