किसी अन्य (पर्ल)

Question

के अंदर एक स्ट्रिंग की घटनाओं की संख्या की गणना करना एक निश्चित स्ट्रिंग को बड़ी संख्या में कितनी बार प्रदर्शित करने का सबसे तेज़ तरीका है? मेरा सबसे अच्छा अनुमान है कि उस स्ट्रिंग के सभी उदाहरणों को कुछ भी नहीं, लंबाई के अंतर की गणना करना और सबस्ट्रिंग की लंबाई से विभाजित करना होगा, लेकिन यह अपेक्षाकृत धीमा लगता है, और मुझे बड़ी मात्रा में डेटा का विश्लेषण करने की आवश्यकता है।

Answer 1

आप स्ट्रिंग को कैप्चर कर सकते हैं, फिर उन्हें गिनें। यह () साथ कब्जा करने के लिए एक सूची संदर्भ लगाने से किया जा सकता है:

my $x = "foo"; 
my $y = "foo foo foo bar"; 
my $c =() = $y =~ /$x/g; # $c is now 3 

तुम भी एक सरणी को पकड़ने और सरणी भरोसा कर सकते हैं। इसी सिद्धांत, अलग तकनीक:

my @c = $y =~ /$x/g; 
my $count = @c; 

Answer 2

आप वैश्विक रेगेक्स का उपयोग कर सकते हैं। कुछ ऐसा:

my @matches = $bigstring =~ /($littlestring)/g; 
my $count = @matches; 

Answer 3

my $string = "aaaabbabbba"; 
my @count = ($string =~ /a/g); 
print @count . "\n"; 

या

my $count = ($string =~ s/a/a/g); 

Answer 4

बस संपूर्णता के लिए आप बार-बार एक पाश में सूचकांक फ़ंक्शन को कॉल करें और हर समय भरोसा कर सकते हैं उस में सबस्ट्रिंग के सूचकांक लौटे स्ट्रिंग, और प्रारंभिक स्थिति बदलें। वह regexes का उपयोग करने से बच जाएगा, और मेरे परीक्षण में regex समाधान से थोड़ा तेज है।

मुझे लगता है कि यहाँ से करने के लिए एक उप अनुकूलित किया है: http://www.misc-perl-info.com/perl-index.html

sub occurrences { 

    my($x, $y) = @_; 

    my $pos = 0; 
    my $matches = 0; 

    while (1) { 
     $pos = index($y, $x, $pos); 
     last if($pos < 0); 
     $matches++; 
     $pos++; 
    } 

    return $matches; 
}