1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu #Write a program that will ask the user for a given name and report the
 4 ffd9a51f 2023-08-04 jrmu #corresponding family name. Use the names of people you know, or (if you spend
 5 ffd9a51f 2023-08-04 jrmu #so much time on the computer that you don't know any actual people) use the
 6 ffd9a51f 2023-08-04 jrmu #following table:
 7 ffd9a51f 2023-08-04 jrmu #
 8 ffd9a51f 2023-08-04 jrmu #Input		Output
 9 ffd9a51f 2023-08-04 jrmu #==========================
10 ffd9a51f 2023-08-04 jrmu #fred		flintstone
11 ffd9a51f 2023-08-04 jrmu #barney		rubble
12 ffd9a51f 2023-08-04 jrmu #wilma		flintstone
13 ffd9a51f 2023-08-04 jrmu 
14 ffd9a51f 2023-08-04 jrmu use v5.10;
15 ffd9a51f 2023-08-04 jrmu use warnings;
16 ffd9a51f 2023-08-04 jrmu use strict;
17 ffd9a51f 2023-08-04 jrmu use utf8;
18 ffd9a51f 2023-08-04 jrmu 
19 ffd9a51f 2023-08-04 jrmu my %names = (
20 ffd9a51f 2023-08-04 jrmu 	fred => "flintstone",
21 ffd9a51f 2023-08-04 jrmu 	barney => "rubble",
22 ffd9a51f 2023-08-04 jrmu 	wilma => "flintstone",
23 ffd9a51f 2023-08-04 jrmu );
24 ffd9a51f 2023-08-04 jrmu my $name;
25 ffd9a51f 2023-08-04 jrmu print "Type a name: ";
26 ffd9a51f 2023-08-04 jrmu while (defined(chomp($name = <>))) {
27 ffd9a51f 2023-08-04 jrmu 	print $name." ". $names{$name}."\n";
28 ffd9a51f 2023-08-04 jrmu 	print "Type a name: ";
29 ffd9a51f 2023-08-04 jrmu 	$name = undef;
30 ffd9a51f 2023-08-04 jrmu }