ハッシュキーの「タイプ」を認識

Question

ハッシュ構造のキーとして「コンパイル済み正規表現」（つまり、形式：qr/../の表現）を使用したいと考えています。

ハッシュキーを反復処理するときに定数文字列とこれらの正規表現を区別するために、ref()またはis_regexp()を使用しようとしましたが、前者はnull文字列を返し、後者は機能しません。私は、Perlのリファレンスとスカラーに関する根本的なものを見逃しているのではないかと心配しています。

それ以外は、私の解決策はうまくいくようです。それはとにかくあまりにも醜いですか？ 代替案は大歓迎です。

ref()機能を理解するためにいくつかのコード：

my $regex = qr/foo/; 
printf "ref(\$regex): %s \n", ref($regex); 
printf "is_regexp(\$regex): %d \n", is_regexp($regex); 
# ref($regex): Regexp 
# is_regexp($regex): 1 

my $scalar = 3; 
printf "ref(\$scalar): [%s] \n", ref($scalar); 
# ref($scalar): [] 

my %my_hash = ('name', 'Becky', 'age', 23); 
for my $k (keys %my_hash) { 
    printf "%s [%s] -> %s [%s] \n", $k, ref($k), $my_hash{$k}, ref($my_hash{$k}); 
} 
# name [] -> Becky [] 
# age [] -> 23 [] 

Answer 1

を改革する必要がなくなります、Perlのハッシュキーは常に文字列です：あなたは、ハッシュキーとして文字列以外のものを使用している場合、それが最初に変換されます文字列に変換する。 McDouglas、マクドナルド、/ MC [-ZA：;私は、たとえば、いくつかのパターン構文をサポートすることができるようにしたい

「私は、configファイルからのカウンタの定義を読む：あなたが書いた別のコメントで

。-z] * /私は、テキストファイルからカウンタ値を読んで、私はそれに応じて、関連するカウンタを更新：マクドナルド23マッキントッシュ11" を

私はこの権利を理解していれば、1つの簡単な解決策は、コンパイル済みの正規表現を格納するためにあるかもしれませんハッシュでは、文字列表記でキーイングされています。

Answer 2

はTie::RegexpHashを使用してに何か問題はありますか？それはコメントで、ホイール:) Qtaxノートとして

use Tie::RegexpHash; 

my %hash; 

tie %hash, 'Tie::RegexpHash'; 

$hash{ qr/^5(\s+|-)?gal(\.|lons?)?/i } = '5-GAL'; 

$hash{'5 gal'};  # returns "5-GAL" 
$hash{'5GAL'};  # returns "5-GAL" 
$hash{'5 gallon'}; # also returns "5-GAL"