1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu use strict;
 3 1ddd2d4e 2023-09-10 jrmu use warnings;
 4 1ddd2d4e 2023-09-10 jrmu 
 5 1ddd2d4e 2023-09-10 jrmu my %gilligan_info = (
 6 1ddd2d4e 2023-09-10 jrmu 	name     => 'Gilligan', 
 7 1ddd2d4e 2023-09-10 jrmu 	hat      => 'White', 
 8 1ddd2d4e 2023-09-10 jrmu 	shirt    => 'Red', 
 9 1ddd2d4e 2023-09-10 jrmu 	position => 'First Mate',
10 1ddd2d4e 2023-09-10 jrmu );
11 1ddd2d4e 2023-09-10 jrmu my %skipper_info = (
12 1ddd2d4e 2023-09-10 jrmu 	name     => 'Skipper',
13 1ddd2d4e 2023-09-10 jrmu 	hat      => 'Black',
14 1ddd2d4e 2023-09-10 jrmu 	shirt    => 'Blue',
15 1ddd2d4e 2023-09-10 jrmu 	position => 'Captain',
16 1ddd2d4e 2023-09-10 jrmu );
17 1ddd2d4e 2023-09-10 jrmu 
18 1ddd2d4e 2023-09-10 jrmu my @crew = (\%gilligan_info, \%skipper_info);
19 1ddd2d4e 2023-09-10 jrmu 
20 1ddd2d4e 2023-09-10 jrmu my $format = "%-15s %-7s %-7s %-15s\n"; 
21 1ddd2d4e 2023-09-10 jrmu printf $format, qw(Name Shirt Hat Position); 
22 1ddd2d4e 2023-09-10 jrmu 
23 1ddd2d4e 2023-09-10 jrmu foreach my $crewmember (@crew) {
24 1ddd2d4e 2023-09-10 jrmu 	printf $format, 
25 1ddd2d4e 2023-09-10 jrmu 		$crewmember->{'name'}, 
26 1ddd2d4e 2023-09-10 jrmu 		$crewmember->{'shirt'}, 
27 1ddd2d4e 2023-09-10 jrmu 		$crewmember->{'hat'}, 
28 1ddd2d4e 2023-09-10 jrmu 		$crewmember->{'position'};
29 1ddd2d4e 2023-09-10 jrmu }