第6章 哈希习题

1、编程读入用户指定的名字并且汇报相应的姓。

#!/usr/bin/env perl
my %last_name = qw{
        Tiny Wang
        John Gao
        Betty Zhang
};
print "Please enter the first name:";
chomp(my $first_name = <STDIN>);
print "That's $first_name $last_name{$first_name}.\n";

2、编程读取一系列单词，每行一个，直到文件中止，然后打印一份列出每个单词出现次数的列表。（提示：把未定义值当成数字使用时，perl会自动将它转换成0。）例如：输入单词为fred、barney、fred、dino、wilma、fred，每个词一行，输出应该告诉我们fred出现了3次。附加题：根据ASCII编码排序输出列表

#!/usr/bin/env perl
use strict;
print "Please enter some words, then press Ctrl-D:\n";
my(@words,%count,$word);
chomp(@words = <STDIN>);
foreach $word (@words){
        $count{$word} += 1;
}
foreach $word (sort keys %count){
        print "$word was seen $count{$word} times.\n";
}

3、编程输出%ENV哈希中所有的键-值对，输出按照ASCII编码排序，分成两列打印。附加题：设法让打印结果纵向对齐。注意length函数可以帮助确定第一列的宽度。测试完毕后加入更多环境管理变量再次验证程序的输出正确无误。

#!/usr/bin/env perl
my $longest = 0;
foreach my $key (keys %ENV){
        my $key_length = length( $key );
        $longest = $key_length if $key_length > $longest;
}

foreach my $key(sort keys %ENV){
        printf "%-${longest}s %s\n", $keys, $ENV{$key};
}