Count the number of character(case insensitive) in a file

[Chendil]

Hi,

I want to write a perl script to count the number of character(case insensitive) in a file.

let me know if this is write way to do this.

open(IN,"words.txt");
$count=0;
$char="a";

$char=lc($substr);
$char2=uc($substr);

while(<IN>)
{
	$result= rindex($_,$char,length($_));
	$result2= rindex($_,$char2,length($_));

	while($result!=-1)
	{
		$count=$count+1;
		$result=rindex($_,$char,$result-1);
	}

	
	while($result2!=-1)
	{
		$count=$count+1;
		$result2=rindex($_,$char2,$result2-1);
	}
	

}
print $count."\n";;
close(IN);

Thanks & Regards
Chendil

[chorny]

tr/// returns number of characters replaced. You can use this to simplify your program.

eval "$charnum = $str =~ tr/$char/$char/"; # eval is necessary here

[toolic]

use strict;
use warnings;

my $char = 'a';
my $tot  = 0;
while (<>) {
    my $num = () = /$char/ig;
    $tot += $num;
}
print "tot = $tot\n";

See also:

perldoc -q count

[Chendil]

use strict;
use warnings;

my $char = 'a';
my $tot  = 0;
while (<>) {
    my $num = () = /$char/ig;
    $tot += $num;
}
print "tot = $tot\n";

See also:

perldoc -q count

Thanks for quick reply.

[Chendil]

tr/// returns number of characters replaced. You can use this to simplify your program.

eval "$charnum = $str =~ tr/$char/$char/"; # eval is necessary here

Thanks for the small script.