1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu 
 3 1ddd2d4e 2023-09-10 jrmu # Modify the crew roster program to add a location field for each castaway.
 4 1ddd2d4e 2023-09-10 jrmu # At the start, set each person's location to "The Island." After you've
 5 1ddd2d4e 2023-09-10 jrmu # added that field to each person's hash, change the Howells' locations to
 6 1ddd2d4e 2023-09-10 jrmu # "The Island Country Club." Make a report of everyone's location, like
 7 1ddd2d4e 2023-09-10 jrmu # this:
 8 1ddd2d4e 2023-09-10 jrmu #
 9 1ddd2d4e 2023-09-10 jrmu # Gilligan at the Island
10 1ddd2d4e 2023-09-10 jrmu # Skipper at the Island
11 1ddd2d4e 2023-09-10 jrmu # Mr. Howell at the Island Country Club
12 1ddd2d4e 2023-09-10 jrmu # Mrs. Howell at the Island Country Club
13 1ddd2d4e 2023-09-10 jrmu 
14 1ddd2d4e 2023-09-10 jrmu use v5.24;
15 1ddd2d4e 2023-09-10 jrmu use warnings;
16 1ddd2d4e 2023-09-10 jrmu use strict;
17 1ddd2d4e 2023-09-10 jrmu use utf8;
18 1ddd2d4e 2023-09-10 jrmu 
19 1ddd2d4e 2023-09-10 jrmu my %gilligan_info = (
20 1ddd2d4e 2023-09-10 jrmu 	name     => 'Gilligan',
21 1ddd2d4e 2023-09-10 jrmu 	hat      => 'White',
22 1ddd2d4e 2023-09-10 jrmu 	shirt    => 'Red',
23 1ddd2d4e 2023-09-10 jrmu 	position => 'First Mate',
24 1ddd2d4e 2023-09-10 jrmu );
25 1ddd2d4e 2023-09-10 jrmu my %skipper_info = (
26 1ddd2d4e 2023-09-10 jrmu 	name     => 'Skipper',
27 1ddd2d4e 2023-09-10 jrmu 	hat      => 'Black',
28 1ddd2d4e 2023-09-10 jrmu 	shirt    => 'Blue',
29 1ddd2d4e 2023-09-10 jrmu 	position => 'Captain',
30 1ddd2d4e 2023-09-10 jrmu );
31 1ddd2d4e 2023-09-10 jrmu my %mrhowell_info = (
32 1ddd2d4e 2023-09-10 jrmu 	name     => 'Mr. Howell',
33 1ddd2d4e 2023-09-10 jrmu 	hat      => undef,
34 1ddd2d4e 2023-09-10 jrmu 	shirt    => 'White',
35 1ddd2d4e 2023-09-10 jrmu 	position => 'Passenger',
36 1ddd2d4e 2023-09-10 jrmu );
37 1ddd2d4e 2023-09-10 jrmu my %mrshowell_info = (
38 1ddd2d4e 2023-09-10 jrmu 	name     => 'Mrs. Howell',
39 1ddd2d4e 2023-09-10 jrmu 	hat      => undef,
40 1ddd2d4e 2023-09-10 jrmu 	shirt    => undef,
41 1ddd2d4e 2023-09-10 jrmu 	position => 'Passenger',
42 1ddd2d4e 2023-09-10 jrmu );
43 1ddd2d4e 2023-09-10 jrmu 
44 1ddd2d4e 2023-09-10 jrmu my @crew = (\%gilligan_info, \%skipper_info, \%mrhowell_info, \%mrshowell_info);
45 1ddd2d4e 2023-09-10 jrmu 
46 1ddd2d4e 2023-09-10 jrmu foreach my $crewmember (@crew) {
47 1ddd2d4e 2023-09-10 jrmu 	$crewmember->{location} = 'The Island';
48 1ddd2d4e 2023-09-10 jrmu }
49 1ddd2d4e 2023-09-10 jrmu 
50 1ddd2d4e 2023-09-10 jrmu sub location {
51 1ddd2d4e 2023-09-10 jrmu 	foreach (@_) {
52 1ddd2d4e 2023-09-10 jrmu 		printf("%s at %s\n", $_->{name}, $_->{location});
53 1ddd2d4e 2023-09-10 jrmu 	}
54 1ddd2d4e 2023-09-10 jrmu }
55 1ddd2d4e 2023-09-10 jrmu location(@crew);
56 1ddd2d4e 2023-09-10 jrmu $mrhowell_info{location} = 'The Island Country Club';
57 1ddd2d4e 2023-09-10 jrmu $mrshowell_info{location} = 'The Island Country Club';
58 1ddd2d4e 2023-09-10 jrmu location(@crew);