識別混雜鍵

Question

我想使用一個「正則表達式編譯」的「類型」（我的意思是：一個表達式的形式qr/../）作爲用於散列結構的鍵。

要遍歷哈希凱斯時，常量字符串和正則表達式這些辨別之間，我試圖用ref()，或is_regexp()，但前者返回一個空字符串，而後者不能正常工作。恐怕我錯過了關於Perl refs和scalars的基本知識。

除此之外，我的解決辦法似乎工作。無論如何這太難看了嗎？ 歡迎任何替代方案。

一些代碼來了解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

由於Qtax在評論中指出，Perl的哈希鍵總是字符串：如果您使用的不是一個字符串作爲哈希鍵以外的東西，它是第一個轉換到一個字符串。

在另一個評論你寫：

「我從一個配置文件中讀取計數器定義;我希望能夠支持一些模式語法，例如：McDouglas，麥當勞，/ MC [A-ZA 。-z] * /我再從文本文件中讀取計數器的值，我相應地更新相關的計數器：麥當勞23麥金託什11"

如果我沒有理解這個權利，一個簡單的解決方案可能是存儲編譯的正則表達式在的另一個散列，鍵入他們的字符串表示形式：

my @patterns = (
    'McDouglas', 
    'McDonald', 
    'Mc[A-Za-z]*', 
); 

my %regexps = map +($_ => qr/^$_$/), @patterns; 
my %counters; 

while (<>) { 
    while (my ($pat, $re) = each %regexps) { 
     $counters{$pat}++ if /$re/; 
    } 
} 

foreach my $pat (@patterns) { 
    print "$pat: ", ($counters{$pat} || 0), "\n"; 
} 

Answer 2

這有什麼錯用Tie::RegexpHash？這樣可以節省你不必重新發明輪子:)

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"