perl如何统计文件英文字母的出现次数

angelanpan

1. 
   
2. #! /bin/perl
   
3. 
   
4. %occurrence = ("sum" => 0, "a" => 0, "b" => 0, "c" => 0, "d" => 0,
   
5.                          "e" => 0,      "f" => 0, "g" => 0, "h" => 0, "i" => 0,
   
6.                  "j" => 0,      "k" => 0, "l" => 0, "m" => 0, "n" => 0);
   
7. 
   
8. 
   
9. open TEXT, "/root/test.txt"
   
10.   or die "Can't open file!";
    
11. 
    
12. while (<TEXT>){
    
13.         chomp;
    
14.         if (/a/gi) {
    
15.                 $occurrence{"a"}++;
    
16.                 $occurrence{"sum"}++;
    
17.         }
    
18. }
    
19. 
    
20. foreach (sort keys %occurrence){
    
21.                 print "$_ : $occurrence{$_}\n";
    
22. }
    

复制代码

test.txt如下:
aa
输出为a => 1; sum =>1;


上面这个程序的问题就是:如果一行里面有许多a, 程序仍然只讲a的occurrence加1?
请问这个应该怎么解决?然后就是我怎么才能计算所有英文字符的总出现率?

谢谢了!

angelanpan

好像问题很多,或者说是思路完全错了
请教各位高手

angelanpan

#! /bin/perl

my %occurrence = ("sum" => 0, "a" => 0, "b" => 0, "c" => 0, "d" => 0,
                  "e" => 0,   "f" => 0, "g" => 0, "h" => 0, "i" => 0,
                  "j" => 0,   "k" => 0, "l" => 0, "m" => 0, "n" => 0);

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


open TEXT, "d:/test.txt"
  or die "Can't open file!";
while (<TEXT>){
        chomp;
        $_ = lc($_);
        $_ =~ s/[\W]//gi;
        my $len = length($_);
        $occurrence{"sum"} = $occurrence{"sum"} + $len;
        foreach my $i (split//,$_){
                if ($i ge "a" and $i le "n"){
                        $occurrence{$i}++;
                }
        };
}

foreach (sort keys %occurrence){
                print "$_ : $occurrence{$_}\n";
}
       

这个好像就可以了
统计所有英文字符出现次数, 同时计算a到n所有字符出现次数,忽略大小写

[ 本帖最后由 angelanpan 于 2005-12-25 18:08 编辑 ]

兰花仙子

[web01@admin ~/angelflower/tmp]$ cat 1.txt
afsafdf
dfdfdf
eejfjnfdsfm
dfdjifjdf
eeffhhh
zvmmvww


[web01@admin ~/angelflower/tmp]$ cat 1.pl
#!/usr/bin/perl
use strict;

my %tmp;
open (HD,"1.txt") or die "$!";

map { $tmp{$_}++; $tmp{sum}++ }
  map { chomp; split //,$_ } <HD>;

close HD;

print "$_: $tmp{$_}\n"
   foreach (sort { $tmp{$b} <=> $tmp{$a} } keys %tmp);


[web01@admin ~/angelflower/tmp]$ perl 1.pl
sum: 47
f: 14
d: 8
e: 4
j: 4
m: 3
h: 3
w: 2
a: 2
v: 2
s: 2
n: 1
z: 1
i: 1



这是偶以前测试时写着玩的，你看看是否有用？

angelanpan

谢谢兰花仙子
我上面写出来的程序也是参考了你以前的帖子写出来的
非常谢谢

我现在再去体会一下你现在给我的回帖

solo7773

看来还是hash好用

jiang870320

grep 返回值不就是次数吗？

rubyish

3Q~我再去体会一下