一个类似容器的问题

li0924

输入文件如下 a b

1. $ cat a
   
2. s1      x       1000
   
3. s2      x       500
   
4. s7      x       400
   
5. s3      y       500
   
6. s8      y       500
   
7. s4      z       1000
   
8. $ cat b
   
9. x       M1      140
   
10. x       M1      160
    
11. x       M2      300
    
12. x       M3      600
    
13. x       M7      700
    
14. y       M4      500
    
15. y       M5      500
    
16. z       M6      1000

复制代码

想要的结果為 b中 第一列 对应a中的 第二列 ，b的累加数量满足 a 表中数量，当满足时，则将多余数量拆分a表对应的下一笔第一列,全部分配完成
不考虑b数量超出。备注同一个x，y，z在a，b中数量是相等的；
输出的结果如下(数量拆分如红色和蓝色部分)：
s1        x        M1        140
s1        x        M1        160
s1        x        M2        300
s1        x        M3        400
s2        x        M3        200
s2        x        M7        300
s7        x        M7        400
s3        y        M4        500
s8        y        M5        500
s4        z        M6        1000
我的答案

游客，如果您要查看本帖隐藏内容请回复

reyleon

看了半天,没看明白

li0924

回复 2# reyleon
例如文件b中第4行变成红色部分；第5行变成蓝色部分


   

reyleon

回复 3# li0924


   
就是这个,咋变来的,没整明白呀... 你的主题好多错别字. 语句也不容易看懂

li0924

回复 4# reyleon

如a中一行数据对应一个容器；容量是第3列的值；
a中第一行是说明该容器的容量是1000”；第二列为x跟b中第列对应；b中第3列的值是140；少于1000.说明没超过这个容器；该容器还没满；还是1000-140=860
就拿b第二行来比对；160也少于860；直到b的第4行；s1的容器还剩400（1000-140-160-300）；而b的第3列是600>400;剩余的200要倒入s2容器里面；也就是a中的第二行；后面依次类推。


   

reyleon

好像看懂了..

yestreenstars

1. [root@localhost ~]# awk -vOFS='\t' 'NR==FNR{a[$2]++;b[$2,a[$2]]=$1;c[$2,a[$2]]=$3;next}{if(!d[$1]++)n=1;if(!c[$1,n])n++;$0=b[$1,n]"\t"$0;while(c[$2,n]<$4){t=$4-c[$2,n];$1=b[$2,n];$4=c[$2,n];print;$4=t;n++};$1=b[$2,n];c[$2,n]-=$4}1' a b
   
2. s1        x        M1        140
   
3. s1        x        M1        160
   
4. s1        x        M2        300
   
5. s1        x        M3        400
   
6. s2        x        M3        200
   
7. s2        x        M7        300
   
8. s7        x        M7        400
   
9. s3        y        M4        500
   
10. s8        y        M5        500
    
11. s4        z        M6        1000
    
12. [root@localhost ~]#

复制代码

li0924

回复 7# yestreenstars
膜拜；
代码有点不对；容器号还没对应上

   

yestreenstars

回复 8# li0924

噢，是的，这都被你发现了，待会再改，先用perl来一发~

1. #!/usr/bin/perl
   
2. open(FILE1, 'a') or die;
   
3. open(FILE2, 'b') or die;
   
4. 
   
5. my(%hash1, %hash2);
   
6. 
   
7. while(<FILE1>){
   
8.         @_ = split;
   
9.         push(@{$hash1{$_[1]}}, $_[0]);
   
10.         push(@{$hash2{$_[1]}}, $_[2]);
    
11. }
    
12. 
    
13. while(<FILE2>){
    
14.         @_ = split;
    
15.         lable:
    
16.         my $temp = shift @{$hash2{$_[0]}};
    
17.         next unless defined $temp;
    
18.         if($temp > $_[2]){
    
19.                 $temp -= $_[2];
    
20.                 unshift(@{$hash2{$_[0]}}, $temp);
    
21.         }else{
    
22.                 print join("\t", $hash1{$_[0]}[0], @_[0,-2], $temp), $/;
    
23.                 $_[2] -= $temp;
    
24.                 shift @{$hash1{$_[0]}};
    
25.                 next unless $_[2];
    
26.                 goto lable;
    
27.         }
    
28.         print join("\t", $hash1{$_[0]}[0], @_), $/;
    
29. }
    
30. 
    
31. close(FILE1);
    
32. close(FILE2);

复制代码

不能超过15字

好多大神出没...