मैं कैसे देख सकता हूं कि एक पर्ल हैश के पास पहले से ही एक निश्चित कुंजी है या नहीं?

Question

मेरे पास एक पर्ल स्क्रिप्ट है जो टेक्स्ट फ़ाइल में विभिन्न तारों की घटनाओं की संख्या की गणना कर रही है। मैं यह जांचने में सक्षम होना चाहता हूं कि एक निश्चित स्ट्रिंग हैश में अभी तक एक कुंजी नहीं है। क्या यह पूरी तरह से करने का एक बेहतर तरीका है?

यहाँ मैं क्या कर रहा हूँ है:

foreach $line (@lines){ 
    if(($line =~ m|my regex|)) 
    { 
     $string = $1; 
     if ($string is not a key in %strings) # "strings" is an associative array 
     { 
      $strings{$string} = 1; 
     } 
     else 
     { 
      $n = ($strings{$string}); 
      $strings{$string} = $n +1; 
     } 
    } 
} 

Answer 1

मैं एक महत्वपूर्ण एक हैश में मौजूद रहने पर जाँच करने के लिए लगता है कि आप सिर्फ

if (exists $strings{$string}) { 
    ... 
} else { 
    ... 
} 

Answer 2

मुझे लगता है कि इस कोड आपके प्रश्न का उत्तर चाहिए:

use strict; 
use warnings; 

my @keys = qw/one two three two/; 
my %hash; 
for my $key (@keys) 
{ 
    $hash{$key}++; 
} 

for my $key (keys %hash) 
{ 
    print "$key: ", $hash{$key}, "\n"; 
} 

आउटपुट:

three: 1 
one: 1 
two: 2 

यात्रा करने के लिए सरल किया जा सकता है:

$hash{$_}++ for (@keys); 

($_ देखें perlvar में।) और तुम भी कुछ इस तरह लिख सकते हैं:

$hash{$_}++ or print "Found new value: $_.\n" for (@keys); 

कौन सा प्रत्येक कुंजी पहली बार यह खबर दी है मिल गया।

Answer 3

तुम बस के साथ जा सकते हैं:

if(!$strings{$string}) .... 

Answer 4

ठीक है, अपने पूरे कोड के लिए सीमित किया जा सकता है:

foreach $line (@lines){ 
     $strings{$1}++ if $line =~ m|my regex|; 
} 

यदि मान वहाँ नहीं है, ++ ऑपरेटर यह समझेंगे 0 होने के लिए (और फिर 1 तक बढ़ोतरी)। यदि यह पहले से ही है - यह केवल वृद्धि होगी।

Answer 5

मैं if ($hash{$key}) का उपयोग करने के खिलाफ सलाह दूंगा क्योंकि यह कुंजी नहीं है, लेकिन यह मान शून्य या खाली है, तो आप ऐसा नहीं करेंगे।