求教怎样将部分相同的行给合并成一行

chenchenbeyond

Dear all：
求教怎么用hash实现以下功能

文件里有以下内容
M11   D1  G1  S1  B1  NCH  L=1u  W=1u
M32   D1  G1  S1  B1  NCH  L=1u  W=1u
M23   D1  G1  S1  B1  NCH  L=1u  W=1u
M233   D1  G1  S1  B1  NCH  L=1u  W=1u
M234   D1  G1  S1  B1  NCH  L=1u  W=1u

希望将这些内容合并成
M11    D1  G1  S1  B1  NCH  L=1u  W=1u  M=5
即将相同的合并成一个，若有5个相同的行，就在行尾添加一个M=5

谢谢各位

kggg

while(<DATA>)
{
    %hash{$_} ++;
}

for $key keys %hash{
  print $key  $hash{$key};
}

mcshell

{:3_186:}月经题又来了

chenchenbeyond

回复 3# mcshell


    那麻烦指教下

xiumu2280

http://bbs.chinaunix.net/forum.p ... ;page=1#pid24164453

M11   D1  G1  S1  B1  NCH  L=1u  W=1u
M32   D1  G1  S1  B1  NCH  L=1u  W=1u
M23   D1  G1  S1  B1  NCH  L=1u  W=1u
M233   D1  G1  S1  B1  NCH  L=1u  W=1u
M234   D1  G1  S1  B1  NCH  L=1u  W=1u

如何合并的····

mcshell

回复 4# chenchenbeyond

1. my ($hash,@str);
   
2. while (<DATA>) {
   
3.     my @data = split;
   
4.     push @str , shift @data;
   
5.     pop @str if $hash->{"@data"}++;
   
6. }
   
7. print shift @str," $_ M=$hash->{$_}\n" for keys %$hash;  
   
8. 
   
9. __DATA__
   
10. M11   D1  G1  S1  B1  NCH  L=1u  W=1u
    
11. M32   D1  G1  S1  B1  NCH  L=1u  W=1u
    
12. M23   D1  G1  S1  B1  NCH  L=1u  W=1u
    
13. M233   D1  G1  S1  B1  NCH  L=1u  W=1u
    
14. M234   D1  G1  S1  B1  NCH  L=1u  W=1u
    
15. M23   D1  G2  S1  B1  NCH  L=1u  W=1u
    
16. M233   D1  G2  S1  B1  NCH  L=1u  W=1u
    
17. M234   D1  G2  S1  B1  NCH  L=1u  W=1u
    
18. M32   D1  G3  S1  B1  NCH  L=1u  W=1u
    
19. M23   D1  G3  S1  B1  NCH  L=1u  W=1u
    
20. M233   D1  G3  S1  B1  NCH  L=1u  W=1u

复制代码

{:3_183:}
   

xiaomm250

这问题也不难

xiaomm250

你至少应该弄一个测试文件上来,不是吗?