my $alias_line_count = 0; # Number of aliases I have
my @alias_label_array = ();
my @alias_value_array = ();
my @officer_label_array = ();
my @officer_value_array = ();
my $officer_count = 0; # Number of officers I have
my @ap_label_array = ();
my @ap_value_array = ();
my $ap_line_count = 0; # Number of APs I have
my $ap_person_count = -1; # Eh? I don't know...
####
# Print the data for officer 'Joe'
for my $i (0 .. $officer_count-1) {
if ($officer_label_array[$i] eq 'Joe') {
print "Joe: $officer_value_array[$i]\n";
}
}
##
##
for my $i (0 .. $#officer_label_array) {
if ($officer_label_array[$i] eq 'Joe') {
print "Joe: $officer_value_array[$i]\n";
}
}
##
##
for my $i (0 .. $#officer_label_value_array) {
if ($officer_label_value_array[$i][0] eq 'Joe') {
print "Joe: $officer_label_value_array[$i][1]\n";
}
}
##
##
for my $array_reference (@officer_label_value_array) {
my ($name, $value) = @$array_reference;
print "$name: $value\n" if $name eq 'Joe';
}
##
##
my $name = 'Joe';
print "$name: $officer_hash{$name}\n" if exists $officer_hash{$name};
##
##
my %aliases = {
# Name Title
Joe => 'Prez',
Bob => 'Veep'
};
my %officers = {
# Name Salary
Prez => 100000,
Veep => 85000
};
# Who's Joe, and how much money does he make?
my $title = $aliases{Joe};
my $salary = $officers{$title};
print "Joe's title is $title, and he earns $salary yearly.\n";
# How many officers do we have, anyway?
print "We have ", scalar(keys %officers), " officers.\n";