请问如何用哈希统计一个数组中某个词出现的次数

驴小兔

我编的是这样的

生成的数组是这样的

但是得出的结果竟然是这样的

请问哈希那里有什么问题吗？

程序猿zy

回复 1# 驴小兔


    if( $_ =~ /^\d+/ ) {
        push( @array, $_ )
你这里是把那个文件里以数字开头的一整行当作列表里面的一个元素放进去了，hash计数那里你打印以下那个$_就知道有问题了，你是想统计这一串数字中重复出现的次数？？那个文件里面有很多行这样的数字？？

104359176

关于输入输出，有很好的模块 File::Slurp，省略了繁冗的文件句柄操作。

对于文件中的数字，可以按照空格拆分。如果要按照正则匹配。要用下面的表达式来匹配小数和整数：

1. /\d(\.\d+)?/

复制代码

1. #!perl
   
2. 
   
3. use 5.016;
   
4. use File::Slurp qw(read_file write_file);
   
5. use YAML qw(Dump);
   
6. use JSON qw(to_json from_json);
   
7. 
   
8. my $text = read_file 'D:/CG_rate.txt';
   
9. my @numbers = split /\s+/, $text;
   
10. my $count = {};
    
11. for (@numbers) { $count->{$_}++ }
    
12. say Dump( $count );
    
13. write_file('D:/total_gc_rate.txt', to_json($count) );
    

复制代码

有两个模块要装：

1. C:\> ppm install File::Slurp
   
2. C:\> ppm install YAML

复制代码

JSON 这个模块内置，数据类型可读性较好。建议用这个作为输出。

另外，哈希用标量引用形式，这样保存为外部数据结构时，比较方便。

驴小兔

回复 2# 程序猿zy
原来的是这样的

就是想把所有的数字都放一起统计


   

104359176

这样的文档就需要用正则匹配了：

my @nums = $text =~ / \d+ (?:\.\d+)? /xmsg;

1. #!perl
   
2. 
   
3. use 5.016;
   
4. use File::Slurp qw(read_file write_file);
   
5. use YAML qw(Dump);
   
6. use JSON qw(to_json from_json);
   
7. 
   
8. my $text = read_file 'D:/CG_rate.txt';
   
9. my @nums = $text =~ / \d+ (?:\.\d+)? /xmsg;
   
10. my $count = {};
    
11. for (@nums) { $count->{$_}++ }
    
12. say Dump( $count );
    
13. write_file('D:/total_gc_rate.txt', to_json($count) );

复制代码

104359176

用 Perl 6 更简洁，因为 Perl 6 内置了数据的结构化显示功能：

1. use v6;
   
2. 
   
3. my $text = 'input.txt'.IO.slurp;
   
4. my @nums = $text ~~ m:g/ \d+ [\.\d+]? /;
   
5. my %count;
   
6. for @nums { %count{$_}++ }
   
7. say %count;
   
8. 'output.txt'.IO.spurt(%count.perl);
   

复制代码

程序猿zy

回复 4# 驴小兔


#!/usr/bin/perl -w

use strict;

my $GC_RATE ;
my @array ;
my %count ;

open $GC_RATE, '<', './a' ;

while( <$GC_RATE> ) {
    chomp( $_ ) ;
    if( $_ =~ /^\d+/ ) {
        my @tmp_list = split/ /,$_;
        foreach my $tmp_val ( @tmp_list ) {
            $count{$tmp_val}++;
        }   
    }   
}

foreach my $key ( keys %count ) {
    print "$key -- $count{$key}\n";
}

close $GC_RATE ;