請(qǐng)教個(gè)問(wèn)題 求助。。

Crisewng

現(xiàn)在有下班這樣一組數(shù)據(jù) 怎么才能把ip 合并
預(yù)想的結(jié)果是

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

復(fù)制代碼

Crisewng

前邊的結(jié)果還是不對(duì)阿 不過(guò)謝謝你啦，，回復(fù) 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

復(fù)制代碼

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 發(fā)表于 2012-07-09 15:13
莫非是這樣：

I think so