在Perl中取消引用

在Perl中解引用会将值从参考点返回到位置。要取消引用的引用，只需使用$，@或％作为引用变量的前缀，具体取决于引用是指向标量，数组还是哈希。以下是解释概念的示例-

示例

#!/usr/bin/perl
$var = 10;

# Now $r has reference to $var scalar.
$r = \$var;

# Print value available at the location stored in $r.
print "Value of $var is : ", $$r, "\n";
@var = (1, 2, 3);

# Now $r has reference to @var array.
$r = \@var;

# Print values available at the location stored in $r.
print "Value of @var is : ", @$r, "\n";
%var = ('key1' => 10, 'key2' => 20);

# Now $r has reference to %var hash.
$r = \%var;

# Print values available at the location stored in $r.
print "Value of %var is : ", %$r, "\n";

输出结果

执行以上程序后，将产生以下结果-

Value of 10 is : 10
Value of 1 2 3 is : 123
Value of %var is : key220key110

如果不确定变量类型，则可以很容易地使用ref来了解其类型，如果ref的参数是引用，它将返回以下字符串之一。否则，它返回false-

SCALAR
ARRAY
HASH
CODE
GLOB
REF

示例

让我们尝试以下示例-

#!/usr/bin/perl
$var = 10;
$r = \$var;
print "Reference type in r : ", ref($r), "\n";
@var = (1, 2, 3);
$r = \@var;
print "Reference type in r : ", ref($r), "\n";
%var = ('key1' => 10, 'key2' => 20);
$r = \%var;
print "Reference type in r : ", ref($r), "\n";

输出结果

执行以上程序后，将产生以下结果-

Reference type in r : SCALAR
Reference type in r : ARRAY
Reference type in r : HASH