求助"如何用perl编写一个统计字符串个数的程序"

求助"如何用perl编写一个统计字符串个数的程序"
比如文本中有
a
b
c
c
b
程序会输出
a 1
b 2
c 2
谢谢大家

用哈希.

初学perl 请多指教-- 初学perl 请多指教

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

my %word_num;
my ($key, $value);
while(<>){
chomp;
$word_num{$_}+= 1;
}

while(($key,$value)= each%word_num){
print "$key => $value\n";
}

用法perl <name>.pl <字符文件路径名>

use strict;--use warni.
[quote]
use strict;
use warnings;

my %calculate = ();

while (my $line = <DATA>)
{
chomp($line);
$calculate{$line}++;
}

while (my ($key, $value) = each %calculate)
{
print $key, "---", $value, "\n";
}

__DATA__
a
b
c
c
b
[/quote]

   

楼上的不具有通用性吧？
其实只要统计一个文件中某种模式出现的次数就可以了，不管是字母，字符等都可以统计的。如果需要留言我可以给出演示的。

敲了一下 --输出结果 敲了一下
输出结果
c=> 2
a=> 1
b=> 2

不过代码 我没有弄明白
收藏 回头研究