Простой поиск хеша по значению

У меня есть простой хеш, и я хотел бы вернуть ключ $на основе критериев стоимости. То есть для строки 14, какой код мне нужно вернуть ключ $, где значение $"желтое"?

1  #!/usr/bin/perl
2
3  # This program creates a hash then
4  # prints out what is in the hash
5
6  %fruit = (
7   'apple' => ['red','green'],
8   'kiwi' => 'green',
9   'banana' => 'yellow',
10  );
11
12 print "The apple is @{$fruit{apple}}.\n";
13 print "The kiwi is $fruit{kiwi}.\n";
14 print "What is yellow? ";

Ответ 1

grep - правильный инструмент для этого задания:

my @all_matches = grep { $fruit{$_} eq 'yellow' } keys %fruit;
print("$_ ") foreach @matching_keys;

my ($any_match) = grep { $fruit{$_} eq 'yellow' } keys %fruit;

Ответ 2

Я не уверен, что это легко сделать с односторонним хешем. Вся точка хэша состоит в том, чтобы преобразовать ключ в значение (или позицию значения, если вы смотрите под обложки). Вы можете выполнить исчерпывающий поиск по всем значениям, собирая ключи, когда вы идете, но не так эффективны, как хэш-поиск.

Для того, чтобы идти по другому пути, вы можете рассмотреть двухсторонний хеш, например:

%fruit = (
    'apple' => ['red','green'],
    'kiwi' => 'green',
    'banana' => 'yellow',
);
%antifruit = (
    'red' => 'apple',
    'green' => ['apple','kiwi'],
    'yellow' => 'banana',
);
print "The apple is @{$fruit{'apple'}}.\n";
print "The kiwi is $fruit{'kiwi'}.\n";
print "A yellow thing is $antifruit{'yellow'}.\n";

Ответ 3

sub find_key { 
    my ( $h, $value ) = @_;
    while ( my ( $k, $v ) = each %$h ) { 
        return $k if $v eq $value;
    }
    return;
}

Итак, вы можете называть его так:

find_key( \%fruit, 'yellow' );

Ответ 4

Поскольку некоторые из ваших значений являются массивами, вам нужно проверить это.

Вызов:

my @fruit = getfruit(\%fruit, $colour);

Подпрограмма:

sub getfruit {
    my ($fruit, $col) = @_;
    my @result;
    for my $key (keys %$fruit) {
        if (ref $fruit->{$key} eq 'ARRAY') {
            for (@{$fruit->{$key}}) {
                push @result, $key if /^$col$/i;
            }
        } else {
            push @result, $key if $fruit->{$key} =~ /^$col$/i;
        }
    }
    return @result;
}

Использование регулярного выражения вместо eq является необязательным, просто помните о сохранении того же случая, поскольку Yellow и Yellow считаются разными ключами.

Ответ 5

Я отмечаю, что ваш пример имеет ссылки на анонимные массивы, поэтому я бы просто сделал длинный цикл foreach/if:

my %fruit = (
  'apple' => ['red','green'],
  'kiwi' => 'green',
  'banana' => 'yellow',
);

print "The apple is @{$fruit{apple}}.\n";
print "The kiwi is $fruit{kiwi}.\n";
print "What is yellow? ";

my $ele;
my $search = 'yellow';
my @match = ();

foreach $ele (keys(%fruit)) {
    if(ref($fruit{$ele}) eq 'ARRAY' and
        grep { $_ eq $search } @{ $fruit{$ele} }) {
        push(@match, $ele);
    } elsif(!ref($fruit{$ele}) and $fruit{$ele} eq $search) {
        push(@match, $ele);
    }
}
print join(", ", @match) . "\n";