Snippet Name: Count words or terms
Description: Count the number of times a given word or character appears in a string.
Comment: (none)
Language: PERL
Highlight Mode: PERL
Last Modified: March 05th, 2009
|
#!/usr/bin/perl
# count negative numbers
WHILE ($string =~ /-\d+/g) { $count++ }
PRINT "There are $count negative numbers in the string";
# count asterisks:
$count = ($sentence =~ TR/*/*/);
# count the number of lines containing the word "Sally";
$totalSallys++ IF ($line =~ /sally/i) |
