新手，碰到点问题，大神指点一下

aingwen

这个脚本目的是为了统计各字母出现的次数
c.txt 的内容为：
a
b
b
c
c
c
d
d
d
d
e
e
e
e
e

统计脚本如下：
#!/usr/bin/perl
use warnings;


open(FILE,"d:/pl_file/c.txt");
my @arry = <FILE>;

close (FILE);

my %hash;

foreach(@arry){
         chomp($_);
         
    if (exists $hash{$_}) {
               
        $hash{$_} = ++$hash{$_};
    }else{
        $hash{$_}=1;
    }
   
}

print join(" ",%hash);

执行后输出的结果：

前面怎么 多个数字 2  ，应该怎么改一下？   

jason680

回复 1# aingwen

1. using keys to get the key
  foreach(keys %hash){ ...}
Note: key = $_, value = $hash{$_}

2. use each to get the key and value
    while (($key, $value) = each %hash){...}

don't forget refer the document for detail
$ perldoc -f keys
$ perldoc -f each

q1208c

回复 1# aingwen

你的代码没问题.

你那个 c.txt 文件里应该有两个空行.

要么你手工删除你那两个空行, 要么, 你在代码里判断一下, 跳过空行.

PS: 你最后的 hash的输出方式 实在不咋滴.
   

yestreenstars

1. $ perl -lne 'chomp;$h{$_}++;END{for $k (sort keys %h){print "$k $h{$k}"}}' i
   
2. a 1
   
3. b 2
   
4. c 3
   
5. d 4
   
6. e 5

复制代码

aingwen

回复 2# jason680
多谢指点，我再改改


   

aingwen

回复 3# q1208c
我打开文本，发现尾部还真的有两个空行，删除之后就好了， 可能是我创建的时候粗心多按了2下回车，多谢提醒。


   

aingwen

回复 4# yestreenstars
你这样输出美观多了，学习了，我再研究一下，多谢！