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|

根據(jù)a.unl文件的第1域的前3個字符和b.unl c.unl兩個文件的兩個域做比較（b.unl和c.unl文件的第一個域是比較的最小值，第二個域是比較的最大值），如果上面的數(shù)據(jù)：
a.unl的第一域的前3個字符是123，123符合大于等于b.unl文件的第1個域，也符合小于等于b.unl文件的第2個域，即：123(b文件)>=123(a文件)<=124(b文件)
a.unl的第2條數(shù)據(jù)：也是符合b.unl文件   123(b文件)>=124(a文件)<=124(b文件)
a.unl的第3條數(shù)據(jù)：符合c.unl文件   234(c文件)>=234(a文件)<=235(c文件)
a.unl的第4條數(shù)據(jù)：也是符合c.unl文件   234(c文件)>=235(a文件)<=235(c文件)

最終的結(jié)果是：匹配到b.unl文件的范圍的數(shù)據(jù)放入new1.unl；匹配到c.unl文件的范圍的數(shù)據(jù)放入new2.unl文件。

注意：a.unl和b.unl、c.unl文件的數(shù)據(jù)很有很多，這里就不一一列出來。

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. }
    

復制代碼

暈了，好像打開的句柄數(shù)比較多~~