特定区域内的统计计算

gooderpan

有一文件file1：（tab分隔）
#类型  位置    数目
1       92       123
1       156      91
1       197      23
1       279      221

另一文件file2：（tab分隔）
#类型   起始位置   结束位置
1         1             50
1         51           100
1         101         150
1         151         200
1         201         250
1         251         300

在file1中“类型”与file2“类型”相同情况下，查看file1的“位置”是否包含在file2的“起始位置”和“结束位置”之内，如果在，则统计相应区域内“数目”总和。（想要得到的结果如下）
1   1      50      0
1   51    100    123
1   101  150    0
1   151   200   114
1   201   250   0
1   251   300   221

y546188155

题目没看懂

gooderpan

回复 2# y546188155

已修改，请查看！

zxy877298415

回复 1# gooderpan

1. awk 'FNR==NR{a[$2]=$3;b[$2]=$1" "NR;next}{for(i in a){split(b[i],c," ");if(int(i)>$2&&int(i)<$3&&c[1]==$1) {s+=a[i]}} print s?$0" "s:$0" 0";s=0}' file1 file2

复制代码

gooderpan

回复 5# 本友会机友会摄友会

一般这类文件有1亿行，那就麻烦啦。

moperyblue

1. awk 'NR==FNR{k=$1","$2","$3;a[k]=0;b[k]=$0;d[++c]=k;next}{for(i in a){split(i,e,",");if($1==e[1]&&$2>=e[2]&&$2<=e[3]){a[i]+=$3;break}}}END{while(j++<c)print b[d[j]],a[d[j]]}' file2 file1|column -t

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while(<DATA>){
   
7.         last if(/\A\s*\z/);
   
8.         my ($id, @aT) = split;
   
9.         push(@{$hData{$id}}, [@aT]);
   
10. }
    
11. 
    
12. while(<DATA>){
    
13.         chomp;
    
14.         my ($id, $b, $e) = split;
    
15.         my ($v) = grep {$_->[0] >= $b and $_->[0] <= $e} @{$hData{$id}};
    
16.         printf("$_\t%d\n", $v->[0] // 0);
    
17. }
    
18. 
    
19. __DATA__
    
20. 1       92       123
    
21. 1       156      91
    
22. 1       197      23
    
23. 1       279      221
    
24. 
    
25. 1         1             50
    
26. 1         51           100
    
27. 1         101         150
    
28. 1         151         200
    
29. 1         201         250
    
30. 1         251         300
    

复制代码

wh7211

回复 1# gooderpan

文件1：
#类型  位置    数目
1        92        123
1        156        91
1        197        23
1        279        221
2        40        1
2        60        2
2        110        3

文件2：
#类型   起始位置   结束位置
1        1        50
1        51        100
1        101        150
1        151        200
1        201        250
1        251        300
2        1        50
2        51        100
2        101        150

要求：输出如下内容：
1        1        50 0
1        51        100 123
1        101        150 0
1        151        200 114
1        201        250 0
1        251        300 221
2        1        50 1
2        51        100 2
2        101        150 3

注意：
1、按题主的要求，在file1中“类型”与file2“类型”相同情况下，查看file1的“位置”是否包含在file2的“起始位置”和“结束位置”之内，如果在，则统计相应区域内“数目”总和。
2、以下代码运行要求awk4.0。

1. awk 'FILENAME==ARGV[1]{a[$1][$2]=$3;next}FNR>1{for(i in a){for(j in a[i]){s=$1==i&&int(j)>$2&&int(j)<$3?s+a[i][j]:+s}}print $0" "s;s=""}' 1 2

复制代码

sunzhiguolu

回复 5# 本友会机友会摄友会
大师，有没有直接处理 Excel 的模块 (添加，修改，删除)
提供一个示例指导？ (发个新帖，方便有问题向您老人家请教)