पर्ल: नियमित अभिव्यक्ति के लिए हैश कुंजी मिलान करना

Question

मुझे आश्चर्य है कि क्या पर्ल के पास एक विशेष रेगेक्स से मेल खाने वाली कुंजी के साथ हैश तत्व के अस्तित्व की जांच करने का एक अंतर्निहित तरीका है। उदाहरण के लिए:

my %h = ('twelve' => 12, 'thirteen' => 13, 'fourteen' => 14); 

मैं अगर वहाँ यह करने के लिए किसी भी तरह से है सोच रहा हूँ:

print "We have 12\n" if exists $h{twelve}; 
print "We have some teens\n" if exists $h{/.*teen$/}; 

Answer 1

smart match operator यह करता है (पर्ल v5.10 के बाद उपलब्ध)।

$a  $b  Type of Match Implied Matching Code 
====== =====  ===================== ============= 
... 
Regex Hash  hash key grep   grep /$a/, keys %$b 
... 

नमूना उपयोग:

# print if any key in %h ends in "teen" 
print "We have some teens\n" if /.*teen$/ ~~ %h; 

Answer 2

नहीं है कोई अंतर्निहित तरीका है, लेकिन वहाँ CPAN पर Tie::Hash::Regex है।

Answer 3

हाँ, यह कहा जाता है:

use List::Util qw<first>; 

# Your regex does not compile perhaps you mean /teen$/ 
my $value = $hash{ (first { m/teen/ } keys %hash) || '' }; 

(स्मार्ट मैच से पहले, वह यह है कि स्मार्ट मैच के लिए भीड़ का जवाब देखें।।)

आप कुंजी को भी सॉर्ट कर सकता है:

my $value = $hash{ (first { m/teen/ } sort keys %hash) || '' }; 

मैं एक "ऑपरेशन" में इस फ्रीज होगा:

use Scalar::Util qw<reftype>; 

sub values_for_keys_like (\[%$]$) { 
    my $ref = reftype($_[0]) eq 'HASH' ? $_[0] : $$_[0]; 
    return unless my @keys = keys %$ref; 

    my $regex = shift; 
    # allow strings 
    $regex = qr/$regex/ unless my $typ = ref($regex); 
    # allow regex or just plain ol' filter functions. 
    my $test = $typ eq 'CODE' ? $regex : sub { return unless m/$regex/; 1 }; 

    if (wantarray) { 
     return unless my @k = grep { defined $test->($_) } @keys; 
     return @$ref{ @k }; 
    } 
    else { 
     return unless my $key = first { defined $test->($_) } @keys; 
     return $ref->{ $key }; 
    } 
} 

और तुम इतना है कि यह इस्तेमाल कर सकते हैं:

my $key = values_for_keys_like(%hash => qr/teen/); 

या

my $key = values_for_keys_like($base->{level_two}{level_three} => qr/teen/); 

Answer 4

अन्य उत्तर के अलावा यहां आप पेर्ल के grep के साथ भी ऐसा कर सकते हैं:

print "We have some teens\n" if grep {/.*teen/} keys %h;