Shell Programming and Scripting

I have a text file with a huge dataset, and each row in that dataset has some data(65479 rows). In that file I need to find the number of times a-z & A-Z Appears.

How Can I Initialise Array into an Array to parse the count also I need to parse a,A into a single array preferably.

example of the text file is as follows:

forum
flat
File

in this no.of "f" occourance count, it should result in 3.

Code:

while(<DATA>)  {
        tr/A-Z/a-z/;
        foreach ( split //, $_ )  {
                $hash{$_}++;
        }
}

print "$_ => $hash{$_}\n" foreach ( keys %hash );


__DATA__
forum
flat
File

Thx geek!

Code:

$
$ cat f3
forum
flat
File
$
$ perl -lne '$x{$_}++ foreach(split//,lc); END{print "$k => $v" while (($k,$v)=each %x)}' f3
e => 1
a => 1
r => 1
m => 1
l => 2
u => 1
f => 3
i => 1
o => 1
t => 1
$

tyler_durden