perl如何判断一个数值是否在一个范围内

Goddude

perl新人，求教大神~~如何看一个文件中的一列数值是否在另一个文件中两列数值的范围内。比如a文件中第三列数字是1027；2637；3847；4827等等等等，b文件中第三四列是1019，1038； 2342，2436； 3812，3942； 4716，4785等等等等。目的是只要a文件某行第一列和b文件某行第二列有相同信息，比如都是chr1，且a文件中该行第三列的数字包含在b文件中该行的三四列数字范围中，就输出a文件中该列数字的这行信息到c文件，输出b文件中这个数字范围的这行信息到d文件。比如a文件第一行第一列与b文件第一行第二列都是chr1，且1027符合1019到1038的范围，就输出a文件中1027的这行的所有信息到c文件，输出b文件中1019,1038的这行的所有信息到d文件。多谢大神！

b114213903

给示例文件，比你描述好懂多了……

sunzhiguolu

a File:

#ID    Name    Number
chr1    Armani    1027
chr2    Prada    7070
chr3    Chanel    2637
chr4    Dior    3487
chr5    NewBalance  4343

b File:

#ID    Name    Section1    section2
chr2    Prada    4000    5000
chr1    Armani    1019    1038
chr4    Dior    4716    4785
chr3    Chanel    3812    3942

codes:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.     local @ARGV = @_;
   
7.     my $bData = {};
   
8.     while(<>){
   
9.         next if(/\A#/);
   
10.         my ($id, $name, $sec1, $sec2) = split;
    
11.         $bData->{$id} = [$_, [$sec1, $sec2]];
    
12.     }
    
13.     $bData;
    
14. }
    
15. 
    
16. my $b = Load(pop);
    
17. my %hFH = ();
    
18. grep {open($hFH{$_}, '>', $_)} ('c', 'd');
    
19. while(<>){
    
20.     next if(/\A#/);
    
21.     my ($id, $name, $num) = split;
    
22.     next if(!exists($b->{$id}));
    
23.     next if($b->{$id}[-1][0] > $num or $b->{$id}[-1][-1] < $num);
    
24.     select($hFH{'c'});
    
25.     print;
    
26.     select($hFH{'d'});
    
27.     print($b->{$id}[0]);
    
28. }
    
29. select(STDOUT);
    
30. grep {close($hFH{$_})} keys %hFH;
    

复制代码

perl abc.pl a b

head -n 2 c d
-------------------------------

expert1

这是处理什么问题？最少在最近5年我都看到过3次。