Shell Programming and Scripting

#!/usr/bin/perl
#
#    Phone Book Application
#

%phonebook = (
    "Wayne", '34687368',
    "Home", '378643287',
    "Work", '017374637',
    "School", '36328323',
    "Gym", '37623938'
);

print "Phonebook Menu.\n";
print "Option 1: Display a phone number.\n";
print "Please select an option [1-1]:";
$option = <STDIN>;
chop $option;
if(option eq "1"){
    print "Please enter a name.\n";
    $usr = <STDIN>;
    chop $usr;
    if($usr =~ /Wayne|Home|Work|School|Gym/){
        print "The phone number for $usr is $phonebook{$usr}.\n";
    }
    else{
        print "No such entry.\n";
    }
else{
    print "Invalid option.\n";
}

#!/usr/bin/perl
#
#    Phone Book Application
#

%phonebook = (
    "Wayne", '34687368',
    "Home", '378643287',
    "Work", '017374637',
    "School", '36328323',
    "Gym", '37623938'
);

print "Phonebook Menu.\n";
print "Option 1: Display a phone number.\n";
print "Please select an option [1-1]:";
$option = <STDIN>;
chop $option;
if(option eq "1"){
    print "Please enter a name.\n";
    $usr = <STDIN>;
    chop $usr;
    if($usr =~ /Wayne|Home|Work|School|Gym/){
        print "The phone number for $usr is $phonebook{$usr}.\n";
    }
    else{
        print "No such entry.\n";
    }
}else{
    print "Invalid option.\n";
}