#! /usr/bin/perl -w
print "File name to read in:" ."\n"; $ my_variable = <STDIN>;
Open (FILE, $my_variable);
while ()
{
print "(N) for Name"," ","(#) for Number search"," ","(.) to exit:"."\n"; $ my_input = <STDIN>;
if ($ my_input eq "N")
{
print "Enter Name:" . "\n"; $ name= <STDIN>;
}
elsif ($ my_input eq "#")
{
print "Enter Number:" . "\n"; %find = <STDIN>;
}
elsif ($ my_input eq ".")
{
}
else
{
}
print ($list($find) . "\n"); }
CiMhIC91c3IvYmluL3BlcmwgLXcKcHJpbnQgIkZpbGUgbmFtZSB0byByZWFkIGluOiIgLiJcbiI7CiQgbXlfdmFyaWFibGUgPSA8U1RESU4+OwpPcGVuIChGSUxFLCAkbXlfdmFyaWFibGUpOwoKd2hpbGUgKCkKewogICBwcmludCAiKE4pIGZvciBOYW1lIiwiICIsIigjKSBmb3IgTnVtYmVyIHNlYXJjaCIsIiAiLCIoLikgdG8gZXhpdDoiLiJcbiI7CiAgICQgbXlfaW5wdXQgPSA8U1RESU4+OwogICBjaG9tcCAoJCBteV9pbnB1dCk7CiAgIGlmICgkIG15X2lucHV0IGVxICJOIikKICAgeyAKICAgCQlwcmludCAiRW50ZXIgTmFtZToiIC4gIlxuIjsKICAgCQkkIG5hbWU9IDxTVERJTj47IAogICAJCWNob21wICgkIG5hbWUpOyAKICAgfQogICBlbHNpZiAoJCBteV9pbnB1dCBlcSAiIyIpCgl7CiAgCQlwcmludCAiRW50ZXIgTnVtYmVyOiIgLiAiXG4iOwogICAgIAklZmluZCA9IDxTVERJTj47Cgl9ICAgCgllbHNpZiAoJCBteV9pbnB1dCBlcSAiLiIpCgl7CiAgIAkJcHJpbnQgIkRvbmUhISEiIC4gIlxuIjsKCX0KCWVsc2UgCgl7CiAgCQlwcmludCAiRXJyb3IiIC4gIlxuIjsKCX0KIAogY2hvbXAoJGZpbmQpOwogcHJpbnQgKCRsaXN0KCRmaW5kKSAuICJcbiIpOyAKIH0=