请教个问题 求助。。

Crisewng

现在有下班这样一组数据 怎么才能把ip 合并
预想的结果是

1        124.152.147.217
1        114.235.249.209
3        183.212.147.41


__DATA__
1        124.152.147.217
1        114.235.249.209
1        183.212.147.41
2        183.212.147.41

cdtits

1. while (<DATA>) {
   
2.     ($x, $y) = split;
   
3.     next if $hash{$y};
   
4.     $hash{$y} = 1;
   
5.     print;
   
6. }
   
7. __DATA__
   
8. 1        124.152.147.217
   
9. 1        114.235.249.209
   
10. 1        183.212.147.41
    
11. 2        183.212.147.41

复制代码

Crisewng

前边的结果还是不对阿 不过谢谢你啦，，回复 2# cdtits


   

cdtits

莫非是这样：

1. %hash;
   
2. while (<DATA>) {
   
3.     ($x, $y) = split;
   
4.     $hash{$y} += $x;
   
5. }
   
6. while (($k, $v) = each %hash) {
   
7.     print "$v\t$k\n";
   
8. }
   
9. __DATA__
   
10. 1        124.152.147.217
    
11. 1        114.235.249.209
    
12. 1        183.212.147.41
    
13. 2        183.212.147.41

复制代码

xmchenb

#!D:\strawberry\perl\bin\perl5.12.3 -w

open FILE,"D:/cc/cc1.txt" or die "$!";

while (<FILE>)
{
          chomp;
    my ( $x, $y ) = split;
    if(exists $hash{$x})
    {
            $hash{$x}=$hash{$x}+1;
    }else
    {
            $hash{$y}=$x;
    }
}

while((my $k,my $v)=each %hash)
{
  print $v,"\t",$k,"\n";
}
close FILE;

  

kk861123

cdtits 发表于 2012-07-09 15:13
莫非是这样：

I think so