パールの名言
参照はポインタです。Perl 参照は、変数、配列、ハッシュ テーブル (連想配列とも呼ばれます)、さらにはサブルーチンを指すことができるスカラー型であり、プログラム内のどこにでも適用できます。
参照を作成します
変数を定義するときは、次のように変数名の前に を追加して、変数への参照を取得します:
$scalarref = $foo; # 标量变量引用 $arrayref = \@ARGV; # 列表的引用 $hashref = \%ENV; # 哈希的引用 $coderef = \&handler; # 子过程引用 $globref = \*foo; # GLOB句柄引用
配列では、匿名の配列参照を使用できます。 [] 定義 :
$aref= [ 1,"foo",undef,13 ];
匿名配列の要素は依然として匿名配列であることができるため、このメソッドを使用して配列の配列を構築でき、任意の次元の配列を構築できます。
my $aref = [ [1, 2, 3], [4, 5, 6], [7, 8, 9], ]
ハッシュでは、{} 定義を使用して匿名のハッシュ参照を使用できます:
$href= { APR =>4, AUG =>8 };
サブルーチン名なしで匿名のサブルーチン参照を作成することもできます:
$coderef = sub { print "php!\n" };
Dereference
キャンセル アプリケーションはベースにできます さまざまなタイプで $、 @ または % でキャンセルします。 例は次のとおりです。
#!/usr/bin/perl $var = 10; # $r 引用 $var 标量 $r = $var; # 输出本地存储的 $r 的变量值 print "$var 为 : ", $$r, "\n"; @var = (1, 2, 3); # $r 引用 @var 数组 $r = \@var; # 输出本地存储的 $r 的变量值 print "@var 为: ", @$r, "\n"; %var = ('key1' => 10, 'key2' => 20); # $r 引用 %var 数组 $r = \%var; # 输出本地存储的 $r 的变量值 print "%var 为 : ", %$r, "\n";
上記の例の実行結果は次のとおりです。
10 为 : 10 1 2 3 为: 123 %var 为 : key110key220
変数の型がわからない場合は、戻り値のリストを使用して判断できます。次の値が存在しない場合は false が返されます: SCALAR
ARRAY
HASH
CODE
GLOB
REF
例は次のとおりです:
#!/usr/bin/perl $var = 10; $r = $var; print "r 的引用类型 : ", ref($r), "\n"; @var = (1, 2, 3); $r = \@var; print "r 的引用类型 : ", ref($r), "\n"; %var = ('key1' => 10, 'key2' => 20); $r = \%var; print "r 的引用类型 : ", ref($r), "\n";
上記の例の実行結果は次のとおりです:
r 的引用类型 : SCALAR r 的引用类型 : ARRAY r 的引用类型 : HASH循環参照
循環参照は 2 つの場合に発生します参照は相互に含まれます。次の例に示すように、メモリ リークが発生するため、慎重に使用する必要があります。
#!/usr/bin/perl my $foo = 100; $foo = $foo; print "Value of foo is : ", $$foo, "\n";
上記の例を実行すると、実行結果は次のようになります。
Value of foo is : REF(0x9aae38)関数参照形式: &
Call参照関数の形式: & + 作成された参照名 。
例は次のとおりです:
#!/usr/bin/perl # 函数定义 sub PrintHash{ my (%hash) = @_; foreach $item (%hash){ print "元素 : $item\n"; } } %hash = ('name' => 'php', 'age' => 3); # 创建函数的引用 $cref = \&PrintHash; # 使用引用调用函数 &$cref(%hash);
上記の例の実行結果は次のとおりです:
元素 : age 元素 : 3 元素 : name 元素 : php