How to count no of occurrence of a unique patterns in perl?
Answers were Sorted based on User's Feedback
Answer / kuldip singh behal
if we are looking for occurrences of single character in a
string then we can use TR command
syntax: tr///
example:
$string="The lion group will meet me after lunch";
and we are looking for the occurrences of character 'l' in
the given string. then we can write tr like
$count = ($string=~tr/l//);
print "l is coming $count time(s)";
but for multiple characters look up we have to use:
$string = "-9 55 48 -2 23 -76 4 14 -44";
while ($string =~ /-\d+/g) { $count++ }
print "There are $count negative numbers in the string";
Donated by :- Kuldip singh behal
Is This Answer Correct ? | 10 Yes | 0 No |
Answer / shah faisal
($count)=$string =~ s/<pattern>/<pattern>/g;
Is This Answer Correct ? | 4 Yes | 3 No |
Answer / perllearner
my %hshUniq;
my $testString = "This is the programme to check the count of unique values present in this text This is the programme to check";
my @arrList = split (" ",$testString);
foreach (@arrList);
{
chomp($_);
if ( exist %hshUniq{$_})
{
my $count = $hshUniq{$_};
$hshUniq{$_} = $count++;
}else
{
$hshUniq{$_} = 1;
}
}
while (($key,$value) = each(%hshUniq))
{
print "The unique character $key count in the string is $value
";
}
Is This Answer Correct ? | 0 Yes | 0 No |
What $! In perl?
Try pattern matching for the following: 1) 10.111.23.11 2) /root/abc/cde/fgg/ac.xml --> Get file name without extention. 3) /root/abc/ac.xml/fgg/ac.xml --> Get file name without extention. 4) What does "DIE" meant in PERL? 5) chomp 6) "This is saturday" --> Print the weekday number. 7) 11-2-2009 --> Print the name of the month. 8) Reverse the string without using func in C.
What does init 5 and init 0 do?
What are the various advantages and disadvantages of perl?
What is the use of -n and -p options?
How do I pass a command line argument in perl?
Write syntax to add two arrays together in perl?
What does undef function in perl?
Perl regular expressions are greedy" what does this mean?
How to connect with sqlserver from perl and how to display database table info?
What is the use of -w, -t and strict in Perl?
What is stdin in perl?