36、Perl 列表与哈希变量的使用

Perl 列表与哈希变量的使用

1. 数组变量的使用

在 Perl 编程中，数组变量的使用有许多值得注意的地方。首先，在某些情况下，需要对表达式进行特殊处理。例如，当第 15 行周围的双引号允许变量插值产生 $fields 的内容后，表达式 ( 1,3..5 ) 必须由 eval 处理，这样才能将 “..” 识别为范围运算符，逗号识别为列表元素分隔符。最终结果就如同 @fields=( 1,3..5 ) 直接出现在第 15 行一样，将所需的索引编号分配给 @fields 数组。

第 18 行检查字段数量，以排除空行后续的处理。 unshift 会将一条特殊消息加载到数组现在非法的第 0 个位置，然后将 @fields 数组的内容插入到下标表达式中作为索引，提取所需的值进行打印。

1.1 fcookie 脚本

在早期的 UNIX 时代，娱乐方式有限，计算机的多媒体功能也很初级。当时，一个名为 fortune 的命令带来了一些乐趣，它能显示类似幸运饼干中的幽默消息。我们可以使用 Perl 脚本来模仿 fortune 程序的行为，甚至做得更好。

在使用脚本之前，需要了解幸运消息在数据文件中的存储方式。以一个关于《星际迷航》妙语的文件为例，每个幸运消息记录都以仅包含 % 符号的行结尾。基于此，编写一个脚本将每个幸运消息加载到数组中，然后随机显示一条。