13、Perl编程：哈希、正则表达式与实用脚本示例

Perl编程：哈希、正则表达式与实用脚本示例

1. 按字母顺序排列姓名列表示例

我们先来看一个将哈希和 split 函数结合的简单示例，该示例读取姓名列表，将姓名存入以姓氏为键的哈希中，然后按姓氏的字母顺序输出列表。以下是示例运行情况：

Enter a name (first and last): Umberto Eco
Enter a name (first and last): Isaac Asimov
Enter a name (first and last): Fyodor Dostoyevski
Enter a name (first and last): Albert Camus
Enter a name (first and last): Bram Stoker
Enter a name (first and last): George Orwell
Enter a name (first and last):
Asimov, Isaac
Camus, Albert
Dostoyevski, Fyodor
Eco, Umberto
Orwell, George
Stoker, Bram

以下是实现该功能的 names.pl 脚本：

#!/usr/local/bin/perl -w

$in = '';      # temporary input
%names = ();   # hash of names
$fn = '';      # te