如何在两个文件中比较

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
经一路        10.5.246.0
小河村        10.5.247.0
大厦        10.5.10.0

以file1里的ip为关键字，从file2中搜索出包含此ip地址的前三段数字的行，并将地点和ip显示在一个新文件file3中，
结果举例：
经一路 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;

复制代码

zljjg2000

谢谢，这么快，我学习一下程序代码，还看不太懂：）

zljjg2000

还有两个地方看不明白：
第一：
if(duu($ip) eq duu($aa)){

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

        $hash{$aa}=$adr ;
以上是说生成一个hash数组，但是中间这一行有什么用呢?
第二：
$hash{$_}='' for (@tmp);
是两个单引号吗？起什么作用呢？

grshrd49

回复 4# zljjg2000


@tmp = grep { $_ ne $aa } @tmp;
grep和map的功能基本差不多 都是从grep{}后的数组中筛选出满足{}中的条件,并且返回一个数组

$hash{$_}='' for (@tmp);
这句话的意思是将列表@tmp中的每个元素作为哈希hash的key 并将这些key对应的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. }

复制代码

grshrd49

回复 6# rubyish


太妙了! 值得细细分析
有点象文言文或者古诗

只是一个红薯

奇怪，用komodo编译，要加个括号...

rubyish 发表于 2013-07-26 01:52

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

复制代码

也来试试 ~

zljjg2000

再请教：
@tmp = grep { $_ ne $aa } @tmp;
中的$_指的哪个变量啊

grshrd49

回复 9# zljjg2000


    grep { $_ ne $aa } @tem
$_是后面的数组中的每个元素，类似于for循环吧