Getting the count of a particular alphabet using subroutine

[changma_ha]

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;

plz help me out.. thanx in advance

[suhailck]

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



~suhail

[changma_ha]

Thanx suhailck... now my problem is solved.

[Ratazong]

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;   # 
        }
}

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

[k_manimuthu]

And another one way

$string='Put your text';
$count++ while($string=~ m{t}g);

[changma_ha]

Thanx Ratazong..... i made a silly mistakes while writing by not passing an array...now my probs is solved.

[toolic]

See also this FAQ from perlfaq4:

perldoc -q count

[murugu]

Take a look in to index

[Anonymous Monk]

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.