如何在兩個文件中比較

zljjg2000

有個問題：
file1：
10.5.246.3
10.5.247.130
10.5.247.2
10.5.248.130
10.5.248.2
10.5.249.3


file2：
地點      ip
經(jīng)一路        10.5.246.0
小河村        10.5.247.0
大廈        10.5.10.0

以file1里的ip為關(guān)鍵字，從file2中搜索出包含此ip地址的前三段數(shù)字的行，并將地點和ip顯示在一個新文件file3中，
結(jié)果舉例：
經(jīng)一路 10.5.246.3
小河村 10.5.247.130
小河村 10.5.247.2
          10.5.248.130
          10.5.248.2
          10.5.249.3

不知該如何編寫啊，采用的perl是windows版本，沒有unix下的grep等命令。

只是一個紅薯

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. use Tie::File;
   
6. tie my @a,'Tie::File', '1.txt';
   
7. tie my @b,'Tie::File', '2.txt';
   
8. tie my @c,'Tie::File', '3.txt';
   
9. my %hash;
   
10. my @tmp=@a;
    
11. for my $bb(@b){
    
12.     next unless $bb=~/\d/;
    
13.     my($adr,$ip)=split /\s+/,$bb;
    
14.     duu($ip);   
    
15.     for my $aa(@a){
    
16.     if(duu($ip) eq duu($aa)){
    
17.         @tmp = grep { $_ ne $aa } @tmp;
    
18.         $hash{$aa}=$adr ;
    
19.     }
    
20. }  
    
21. }
    
22. $hash{$_}='' for (@tmp);
    
23. sub duu{
    
24.     my $t=shift;
    
25.     my($a,$b,$c,$d)=split /\./,$t;
    
26.     ($a,$b,$c);
    
27. }
    
28. push @c,$hash{$_}."\t".$_ for  keys %hash;
    
29. @c=reverse sort @c;
    
30. untie @a;
    
31. untie @b;
    
32. untie @c;

復(fù)制代碼

zljjg2000

謝謝，這么快，我學(xué)習(xí)一下程序代碼，還看不太懂：）

zljjg2000

還有兩個地方看不明白：
第一：
if(duu($ip) eq duu($aa)){

        @tmp = grep { $_ ne $aa } @tmp;

        $hash{$aa}=$adr ;
以上是說生成一個hash數(shù)組，但是中間這一行有什么用呢?
第二：
$hash{$_}='' for (@tmp);
是兩個單引號嗎？起什么作用呢？

grshrd49

回復(fù) 4# zljjg2000


@tmp = grep { $_ ne $aa } @tmp;
grep和map的功能基本差不多 都是從grep{}后的數(shù)組中篩選出滿足{}中的條件,并且返回一個數(shù)組

$hash{$_}='' for (@tmp);
這句話的意思是將列表@tmp中的每個元素作為哈希hash的key 并將這些key對應(yīng)的value清空

rubyish

也來試試 ~

1. #!/usr/bin/perl
   
2. 
   
3. open my $F1, 'file1';
   
4. open my $F2, 'file2';
   
5. open my $F3, '>', 'file3';
   
6. 
   
7. my %f2 = map { reverse /(\S+)\s+(.*?)\d+$/ } <$F2>;
   
8. while (<$F1>) {
   
9.     my ($k) = /(.*\.)/;
   
10.     print $F3 $f2{$k} ? "$f2{$k}\t$_" : "\t$_";
    
11. }

復(fù)制代碼

grshrd49

回復(fù) 6# rubyish


太妙了! 值得細(xì)細(xì)分析
有點象文言文或者古詩

只是一個紅薯

奇怪，用komodo編譯，要加個括號...

rubyish 發(fā)表于 2013-07-26 01:52

1. my %f2 = map { reverse (/(\S+)\s+(.*?)\d+$/) } <$F2>;

復(fù)制代碼

也來試試 ~

zljjg2000

再請教：
@tmp = grep { $_ ne $aa } @tmp;
中的$_指的哪個變量啊

grshrd49

回復(fù) 9# zljjg2000


    grep { $_ ne $aa } @tem
$_是后面的數(shù)組中的每個元素，類似于for循環(huán)吧