hash

hashの例。

$members;

while (<>){
    chomp;
    @inputs = split / /;
    $members{$inputs[0]} = $inputs[1];
}

while (<>){
    chomp;
    print $members{$_}."\n";
}

まず、フルネームを入力する。first nameとlast nameの間はスペースをいれる。

すると、それぞれのfirst nameをキーとして、family nameをハッシュとして登録する。いったんCtrl+Zを押す。今度は、first nameのみを入力する。

すると、それに対応するfamily nameが表示される。

C:\Users\t>perl mem.pl
John Lennon
Bob Dylan
Pete Townshend
^Z
John
Lennon
Pete
Townshend
John
Lennon
Bob
Dylan