Counting number of occurrences of a string inside another (Perl)

by

You can capture the strings, then count them. It can be done by applying a list context to the capture with ():

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

You can also capture to an array and count the array. Same principle, different technique:

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

More Related Contents:

  1. string pattern matching using perl regex [closed]
  2. Match whitespace but not newlines
  3. The recognizing power of “modern” regexes
  4. Should I use \d or [0-9] to match digits in a Perl regex?
  5. Escaping a forward slash in a regular expression
  6. How can I use a variable in the replacement side of the Perl substitution operator?
  7. When is \G useful application in a regex?
  8. Using alternation or character class for single character matching?
  9. Why is a character class faster than alternation?
  10. What regex can match sequences of the same character?
  11. How to extract string following a pattern with grep, regex or perl [duplicate]
  12. regex to match word boundary beginning with special characters
  13. Regex to match any character including new lines
  14. Does the ‘o’ modifier for Perl regular expressions still provide any benefit?
  15. How do I handle special characters in a Perl regex?
  16. Why do ^ and $ not work as expected?
  17. How can I find the location of a regex match in Perl?
  18. How can I exclude some characters from a class?
  19. Can I use Perl regular expressions to match balanced text?
  20. What is the difference between \1 and $1 in a Perl regex?
  21. How do I perform a Perl substitution on a string while keeping the original?
  22. How to match a pattern given in a variable in awk?
  23. How can I match a quote-delimited string with a regex?
  24. How can I use a variable for a regex pattern without interpreting meta characters?
  25. How can I parse quoted CSV in Perl with a regex?
  26. how to match a number which is less than or equal to 100?
  27. How to escape dollar sign ($) in a string using perl regex
  28. Capturing text before and after a C-style code block with a Perl regular expression
  29. Can I substitute multiple items in a single regular expression in VIM or Perl?
  30. How do I search and replace across multiple lines with Perl?

Leave a Comment