Getting the count of a particular alphabet using subroutine

changma_ha has asked for the wisdom of the Perl Monks concerning the following question:

Hi all..I got struck in a problem. I have wrote a code where using a subroutine i have to count the occurrence of "t". Here is my code

#! /usr/bin/perl
use strict;
use warnings;

sub countt{
    my $string =<STDIN>;
my $count = 0;
    $string =~ s/\s*\n//g; # removes the spaces and newline character.
    my @arraystr =split(//,$string);#split the string acc. to each  al
+phabet and pass it to the array. 
    foreach my $alpha($string){
        if ($alpha =~ /t/i){ # if 't' is found
            $count++; #increment the count
            return $count;
        }
        
    
    }
        
}
#my @list = qw  (here is the man in the rain);
print &countt;
[download]

plz help me out.. thanx in advance

Comment on Getting the count of a particular alphabet using subroutine Download Code

Replies are listed 'Best First'.
Re: Getting the count of a particular alphabet using subroutine by suhailck (Friar) on Aug 06, 2010 at 06:08 UTC
To count the occurence of an alphabet, you can use tr as in the below code, `perl -le '$string=q[ttc actssat tb];$count=$string=~tr/t//;print $coun +t' 5` [download] ~suhail	[reply] [d/l]
Re^2: Getting the count of a particular alphabet using subroutine by changma_ha (Sexton) on Aug 06, 2010 at 06:28 UTC
Thanx suhailck... now my problem is solved.	[reply]
Re: Getting the count of a particular alphabet using subroutine by Ratazong (Monsignor) on Aug 06, 2010 at 06:59 UTC
`sub countt{ ... my @arraystr =split(//,$string);#split the string acc. to each al +phabet and pass it to the array. foreach my $alpha($string){ if ($alpha =~ /t/i){ # if 't' is found $count++; #increment the count return $count; # } }` [download] If you want to stick to your own approach, I see two issues with your original code: you create an array, but don't use it ... maybe you want to use `arraystr` in your loop inside the loop, you have the `return`; this ends your subroutine before all elements have been processed; you will want to move the `return` behind the loop... HTH, Rata	[reply] [d/l] [select]
Re^2: Getting the count of a particular alphabet using subroutine by k_manimuthu (Monk) on Aug 06, 2010 at 08:01 UTC
And another one way `$string='Put your text'; $count++ while($string=~ m{t}g);` [download]	[reply] [d/l]
Re^2: Getting the count of a particular alphabet using subroutine by changma_ha (Sexton) on Aug 06, 2010 at 10:01 UTC
Thanx Ratazong..... i made a silly mistakes while writing by not passing an array...now my probs is solved.	[reply]
Re: Getting the count of a particular alphabet using subroutine by toolic (Bishop) on Aug 06, 2010 at 12:03 UTC
See also this FAQ from perlfaq4: `perldoc -q count` [download]	[reply] [d/l]
Re: Getting the count of a particular alphabet using subroutine by murugu (Curate) on Aug 06, 2010 at 06:04 UTC
Take a look in to index Regards, Murugesan Kandasamy use perl for(;;);	[reply]
Re: Getting the count of a particular alphabet using subroutine by Anonymous Monk on Aug 06, 2010 at 14:47 UTC
The title of this node is very confusing. An "alphabet" is a specific set of characters used for writing natural language, like the Latin alphabet or the Hebrew alphabet (whence the term). I believe the word you're looking for is "character" or "letter": "t" is a character which is a letter (letter being a specific class of written character). In short, a character is the atomical unit of a string. Characters comonly include digits or "numerical digits" (eg, 1, 2, 3), letters (eg, 'a', 'b', 'ɣ'), punctuation (eg, ':', '#', '!'). Letters and numbers taken together are called "alphanumeric characters", or sometimes "alphanumerics". Note that this is an issue of natural language, not of programming. Specifically, do not try to map these classes of characters to regular expression character classes without consulting the relevant documentation, especially for the purposes of input validation.	[reply]