如何用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
怎么变为
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)}
   

复制代码