23、Perl编程：引用与正则表达式的实用指南

Perl编程：引用与正则表达式的实用指南

1. 符号引用

在Perl中，如果 use strict 'refs' 未生效，包含变量名的字符串可用于访问该变量。例如：

my $hash_name = 'tag';
${$hash_name}{nick}   = ${nick};
${$hash_name}{rank}   = ${'rank'}[-1];
# Most recent rank
${$hash_name}{serial} = ${'serial_num'};

也可以使用箭头符号达到相同效果：

my $hash_name = 'tag';
$hash_name->{nick}   = ${nick};
$hash_name->{rank}   = 'rank'->[-1];
$hash_name->{serial} = ${'serial_num'};

这种用法的字符串被称为符号引用。当Perl遇到期望引用的地方却是字符串时，它会使用该字符串在本地符号表中查找同名的相关变量。

1.1 符号引用的问题

符号引用只能引用包变量，而在开发中一般不使用包变量，这会导致混淆。例如：

# Create help texts...
Readonly my $HELP_CD  => 'change directory'