如何用HASH合并相同的行？

mcshell

文本如下：
1.1.1.1   www.abc.com
2.2.2.2   www.it168.com
2.2.2.2   www.sina.com.cn
1.1.1.1   www.chinaunix.net
2.2.2.2   www.bbc.com
怎么變?yōu)?br /> 1.1.1.1     www.abc.com，www.chinaunix.net
2.2.2.2  www.it168.com，www.sina.com.cn，www.bbc.com
   

自己用hash做了一下。只能去除相同行 ，但是不知道如何把后面的合并。
  請大家給點思路 謝謝了

jason680

1. add it like string (by scalar)
  my ($sName, $sWWW) = split;
  if(exists $hWeb{$sName}){
    $hWeb{$sName} .= ", $sWWW";
  }
  else{
    $hWeb{$sName} = "$sWWW";
  }

2. add it like array
  my ($sName, $sWWW) = split;
  push @{$hWeb{$sName}}, $sWWW;

mcshell

回復 2# jason680


    謝謝了，用了你第一種思路

1. #!/usr/bin/perl
   
2. use strict;
   
3. my %web;
   
4. my($ip,$url);
   
5. while(<DATA>){
   
6.         ($ip,$url)=split(/\s+/,$_);
   
7. if(exists $web{$ip}){
   
8.         $web{$ip}.=",$url";
   
9. }
   
10. else{
    
11.         $web{$ip} ="$url";
    
12. }
    
13. }
    
14. print "$_:$web{$_}\n" foreach keys(%web);
    
15. 
    
16. __DATA__
    
17. 1.1.1.1   www.abc.com
    
18. 2.2.2.2   www.it168.com
    
19. 2.2.2.2   www.sina.com.cn
    
20. 1.1.1.1   www.chinaunix.net
    
21. 2.2.2.2   www.bbc.com
    

復制代碼

yinyuemi

1. echo '1.1.1.1   www.abc.com
   
2. 2.2.2.2   www.it168.com
   
3. 2.2.2.2   www.sina.com.cn
   
4. 1.1.1.1   www.chinaunix.net
   
5. 2.2.2.2   www.bbc.com' |\
   
6. perl -alne 'push @{$hash{$F[0]}}, $F[1];END{map{printf $_." ";local $"=",";print  "@{$hash{$_}}"}(keys %hash)}'
   
7. 1.1.1.1 www.abc.com,www.chinaunix.net
   
8. 2.2.2.2 www.it168.com,www.sina.com.cn,www.bbc.com

復制代碼

mcshell

回復 4# yinyuemi
這個單命令行 前半部分能看懂  后面就看不懂了  不知道能否解釋下   謝謝了

   

MMMIX

回復 4# yinyuemi


    這個 END block 寫成下述形式會成清楚些

1. 
   
2. END{local $"=","; map { print "$_: @{$hash{$_}}" } (keys %hash) }
   

復制代碼

或是更簡單高效的

1. 
   
2. END{local $"=","; print "$_: @{$hash{$_}}" for (keys %hash)}
   

復制代碼