perl 源文件的一个域和另外的文件两个域做比较

yangjavine

a.unl
123456|1111|11111|fd|fdfd|dfdf|dfdfd|dfdfd|dfdfd|dfdfd|dfdfdfd|fdfd|fdfD|fd|dfdfd|dfdfd|dfdfd|dfdfd|dfdf|dfdf|
124556|1111|11111|fd|fdfd|dfdf|dfdfd|dfdfd|dfdfd|dfdfd|dfdfdfd|fdfd|fdfD|fd|dfdfd|dfdfd|dfdfd|dfdfd|dfdf|dfdf|
234333|2222|22222|fd|fdfd|dfdf|dfdfd|dfdfd|dfdfd|dfdfd|dfdfdfd|fdfd|fdfD|fd|dfdfd|dfdfd|dfdfd|dfdfd|dfdf|dfdf|
235454|2222|22222|fd|fdfd|dfdf|dfdfd|dfdfd|dfdfd|dfdfd|dfdfdfd|fdfd|fdfD|fd|dfdfd|dfdfd|dfdfd|dfdfd|dfdf|dfdf|

b.unl
123|124|

c.unl
234|235|

根据a.unl文件的第1域的前3个字符和b.unl c.unl两个文件的两个域做比较（b.unl和c.unl文件的第一个域是比较的最小值，第二个域是比较的最大值），如果上面的数据：
a.unl的第一域的前3个字符是123，123符合大于等于b.unl文件的第1个域，也符合小于等于b.unl文件的第2个域，即：123(b文件)>=123(a文件)<=124(b文件)
a.unl的第2条数据：也是符合b.unl文件   123(b文件)>=124(a文件)<=124(b文件)
a.unl的第3条数据：符合c.unl文件   234(c文件)>=234(a文件)<=235(c文件)
a.unl的第4条数据：也是符合c.unl文件   234(c文件)>=235(a文件)<=235(c文件)

最终的结果是：匹配到b.unl文件的范围的数据放入new1.unl；匹配到c.unl文件的范围的数据放入new2.unl文件。

注意：a.unl和b.unl、c.unl文件的数据很有很多，这里就不一一列出来。

yangjavine

自己顶一下

iakuf

1. #!/usr/bin/perl
   
2. use strict;
   
3. use File::Slurp;
   
4. use Data::Dumper;
   
5. 
   
6. my %bHash;
   
7. for my $line ( read_file("b.unl") ) {
   
8.     if ($line =~ /^(\d+)\|(\d+)/) {
   
9.         $bHash{$1} = $2
   
10.     }
    
11. }
    
12. 
    
13. my %cHash;
    
14. for my $line ( read_file("c.unl") ) {
    
15.     if ($line =~ /^(\d+)\|(\d+)/) {
    
16.         $cHash{$1} = $2
    
17.     }
    
18. }
    
19. 
    
20. open my $new1_fh, ">", "new1.unl" or die "$!";
    
21. open my $new2_fh, ">", "new2.unl" or die "$!";
    
22. for my $line ( read_file("a.unl") ) {
    
23.     my ($number) = $line =~ /^(\d\d\d)/;
    
24. 
    
25.     for my $key ( keys %bHash ) {
    
26.         print $new1_fh $line if $number >= $key and $number <= $bHash{$key};
    
27.     }
    
28. 
    
29.     for my $key ( keys %cHash ) {
    
30.         print $new2_fh $line if $number >= $key and $number <= $cHash{$key};
    
31.     }
    
32. }
    
33. close $new1_fh;
    
34. close $new2_fh;

复制代码

xxhacker

1. 
   
2. #! /usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my %hash;
   
7. my ($b_min,$b_max,$c_min,$c_max);
   
8. open my $fh_a,"<","a.unl" or die "Cannot open file:$!\n";
   
9. open my $fh_b_in,"<","b.unl" or die "Cannot open file:$!\n";
   
10. open my $fh_b_out,">","new1.unl" or die "Cannot write file:$!\n";
    
11. open my $fh_c_in,"<","c.unl" or die "Cannot open file:$!\n";
    
12. open my $fh_c_out,">","new2.unl" or die "Cannot write file:$!\n";
    
13. 
    
14. while (<$fh_a>) {
    
15.         chomp;
    
16.         $hash{$_} = substr((split /\|/)[0],0,3);
    
17. }
    
18. 
    
19. while(<$fh_b_in>) {
    
20.         ($b_min,$b_max) = (split /\|/);
    
21.         for (keys %hash) {
    
22.                 if ( $hash{$_} >= $b_min and $hash{$_} <= $b_max ) {
    
23.                         print $fh_b_out "$_\n";
    
24.                 }               
    
25.         }       
    
26. }
    
27. 
    
28. while(<$fh_c_in>) {
    
29.         ($c_min,$c_max) = (split /\|/);
    
30.         for (keys %hash) {
    
31.                 if ( $hash{$_} >= $c_min and $hash{$_} <= $c_max ) {
    
32.                         print $fh_c_out "$_\n";
    
33.                 }       
    
34.         }
    
35. }
    

复制代码

晕了，好像打开的句柄数比较多~~