Perlでハッシュ（連想配列）に格納されている値からキーを逆引きする関数を書いてみた

以前に Python では辞書オブジェクトを逆引きできると聞きまして、Perl でもハッシュ（連想配列）を、格納されている値からキーを逆引きできたら便利かも？ と思い関数にしてみました。

#!/usr/bin/perl use strict; use warnings; my %hash = ('A' => 'hoge', 'B' => 'fuga', 'C' => 'piyo', 'D' => 'hoge'); my $value = 'hoge'; my @keys = HashValue2Keys($value, %hash); print join(", ", @keys); sub HashValue2Keys { my $value = shift; my %hash = @_; my @keys = (); for my $key (keys %hash){ if($hash{$key} eq $value){ push(@keys, $key); } } return @keys; }

12行目からの HashValue2Keys というサブルーチンがそうで、11行目までは検証用のソースになります。

使い方は第１引数に検索したい値を、第２引数に対象のハッシュを与えます。戻り値は該当したキーのリストです。該当するキーが無かった場合は空のリストを返します。

Enjoy!