Perl语言入门习题_第六章

1．[7]写一个程序，提示用户输入 given name（名），并给出其对应的 family name（姓）。使用你知道的人名，或者表 6-1（如果你在计算机上花了太多时间，以致什么人都不认识）
2．[15]写一个程序，读入一串单词(一个单词一行)◆，输出每一个单词出现的次数。（提示：如果某个作为数字使用值是undefined的，会自动将它转换为 0。）如果输入单词为fred, barney, dino, wilma, fred（在不同行中），则输出的 fred 将为2。作为额外的练习，可以将输出的单词按照ASCII 排序。

#! /usr/bin/perl

use strict;

    my %hash_name = ("fred"=> "flintstone","barney"=> "rubble","wilma"=> "flintstone",);
    
    print "given name:\n";
    while(<STDIN>){
        chomp $_;
        if(exists $hash_name{$_}){
            print "$_ => $hash_name{$_}\n";
        }else{
            print "unkown:$_\n";
        }
        print "given name:\n";
    }

#! /usr/bin/perl

use strict;

    my %hash_name = ("fred"=> "flintstone","barney"=> "rubble","wilma"=> "flintstone",);
    
    print "given name:\n";
    while(<STDIN>){
        chomp $_;
        if(exists $hash_name{$_}){
            print "$_ => $hash_name{$_}\n";
        }else{
            print "unkown:$_\n";
        }
        print "given name:\n";
    }