$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