Perl语言入门（第8版）

124

｜

第

6

章

不止于此，

Perl

的理念是不要让人做多余的事。由于表示键的字符串一般都用简单的

词，所以胖箭头左侧的键可以直接省略引号：

my %last_name = (

fred => 'flintstone',

dino => undef,

barney => 'rubble',

betty => 'rubble',

);

当然，也不是所有情况下都可省略。如果会产生歧义，比如键名是看起来像某个

Perl

操作符的话，就必须使用引号。比如下面的代码中，放在胖箭头左边的

+

是加法操作

符，没有使用引号的话就会导致编译错误：

my %last_name = (

+ => 'flintstone', #

错了！编译错误！

);

一般我们选用的键都是非常简单的字符串，如果键名只是由字母、数字和下划线组

成，并且不以数字开头，那就可以省略引号。我们将这类无需引号的字符序列称为裸

字（

bareword

），因为它是孤立存在的。

还有一个常见允许省略键名引号的地方是：定义在花括号中的键名。比如原来

的

$score{'fred'}

可以直接简写为

$score{fred}

。由于许多哈希键名都是这类简单

的单词，所以不加引号的写法几乎成了惯例。但要注意，如果花括号内不是裸字，

Perl

就会将其当作表达式先求值，然后把结果当作键名。比如，对于下面的

.

，

Perl

会

认为进行字符串连接操作：

$hash{ bar.foo } = 1; #

构成键名

'barfoo'

哈希操作函数

为了对哈希进行各种数据处理，

Perl ...