统计a文件中某个元素在b文件出现的次数

sunzhiguolu

回复 6# stanley_tam

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open (my $FHb, '<', './b');
   
6. my (@aChars, %hStat) = ('A' .. 'C');
   
7. map {my @aT = split; $hStat{$aT[1]}{$aT[0]}{'Values'} = [@aT[2, -1]]; @{$hStat{$aT[1]}{$aT[0]}}{@aChars} = (0) x 3} <$FHb>;
   
8. close ($FHb);
   
9. open (my $FHa, '<', './a');
   
10. while (defined (local $_ = <$FHa>)){
    
11.     my @aA = split;
    
12.     while (my ($sKey, $v) = each %{$hStat{$aA[0]}}){
    
13.         if ($aA[1] >= $v->{'Values'}->[0] and $aA[1] <= $v->{'Values'}->[-1]){
    
14.             $hStat{$aA[0]}{$sKey}{$aA[-1]}++;
    
15.         }
    
16.     }
    
17. }
    
18. close ($FHa);
    
19. while (my ($id, $v) = each %hStat){
    
20.     foreach (keys %$v){
    
21.         my $rh = $hStat{$id}{$_};
    
22.         print join ("\t", $_, $id, @{$rh->{'Values'}}, @{$rh}{@aChars}), "\n";
    
23.     }
    
24. }
    

复制代码

perl abc.pl
----------------------------------------------------------------------------
len_2   01      432     452     0       0       1
len_1   01      330     401     1       3       0
len_3   01      500     600     0       3       4

   

sunzhiguolu

如果只是提取文件 a, b 中某一相关值相等的记录来说, 谁在内, 谁在外 应该结果是一样的. 如果要将文件 a 中的每一条记录都对文件 b 进行统计的话, 那就需要与 a 相关联的句柄在外, 与 b 相关联的句柄在内.
是这个意思吗? 请大家指点一下... 谢谢!!!

华小飞_Perl

while循环内再嵌套句柄的while循环，如果文件很大那真的太占系统资源了。将句柄的内容全部读入列表上下文也太占内存了。

清泉一边

的确是这个原因。但这样写的确耗时啊。回复 6# stanley_tam


   

清泉一边

时间和内存不可兼得啊，while套while试了一下，时间太久了，这次文件不算太大，要时间，不要内存了~回复 13# 华小飞_Perl