请教如果查找一个文件的值是否落在另一个文件的范围内

catloverat99

例如 file1
2
1
5
6
8
12
15
file 2
1 6
5 7
6 12
8 10
12 17
15 20
31 40
现在使用命令
awk 'FNR==NR{a[$1]=$1;next}{YN="No";for (n in a) if ($1<=+n&&+n<=$2){YN="Yes";break}print $0,a[n],YN}'  file1 file2
得到结果为
1 6 2 Yes
5 7 5 Yes
6 12 1 No
8 10 1 No
12 17 12 Yes
15 20 2 Yes
31 40 1 No

为什么6和8明明在范围内,结果是no呢
命令怎么修改呢？
另外命令怎么修改能将所有落在范围内的值，都列在范围的后面呢

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aIntervals = ();
   
6. while (<DATA>){
   
7.     last if (/\A\s*\z/);
   
8.     push (@aIntervals, [split]);
   
9. }
   
10. 
    
11. my $pos = 0;
    
12. foreach (sort {$a <=> $b} <DATA>){
    
13.     chomp;
    
14.     my $msg = $_ >= $aIntervals[$pos][0] && $_ <= $aIntervals[$pos][-1] ? "YES" : "NO";
    
15. 
    
16.     if ($msg ne "YES"){
    
17.         if ($pos == $#aIntervals){
    
18.             print "@{$aIntervals[$pos]} $_ $msg\n";
    
19.             next;
    
20.         }
    
21.         $pos++;
    
22.         redo;
    
23.     }
    
24. 
    
25.     print "@{$aIntervals[$pos]} $_ $msg\n";
    
26. }
    
27. 
    
28. __DATA__
    
29. 1 6
    
30. 5 7
    
31. 6 12
    
32. 8 10
    
33. 12 17
    
34. 15 20
    
35. 31 40
    
36. 
    
37. 2
    
38. 1
    
39. 5
    
40. 6
    
41. 8
    
42. 12
    
43. 15
    

复制代码

perl abc.pl
----------------------------------------
1 6 1 YES
1 6 2 YES
1 6 5 YES
1 6 6 YES
6 12 8 YES
6 12 12 YES
12 17 15 YES

zxy877298415

回复 1# catloverat99

1. awk 'FNR==NR{a[$0];next}{for(i in a) {if(int(i)>=$1&&int(i)<=$2) t=t?t" "i:i}print $0": "t;t=""}' file1 file2

复制代码

fh21_xuejinlian

awk  'NR==FNR{a[NR]=$1;next}{if(a[FNR]>=$1&&a[FNR]<=$2)print $0,a[FNR],"yes";else print $0,a[FNR],"NO"}' file1 file2
1 6 2 yes
5 7 1 NO
6 12 5 NO
8 10 6 NO
12 17 8 NO
15 20 12 NO
31 40 15 NO
比较的是按照顺序比较的，楼主要求顺序吗 还是可以打乱顺序进行比较

jcdiy0601

1. awk '{num=$0;getline < "2";if(num>=$1&&num<=$2){print $0,num,"YES"}else{print $0,num,"NO"}}' 1

复制代码

catloverat99

回复 4# fh21_xuejinlian

不能按顺序，两个文件的行数不一致

moperyblue

1. awk 'NR==FNR{a[$1];next}{s="";for(i in a)if(+i>=$1 && +i<=$2)s=length(s)?s FS i:i;print $0" ==> "(length(s)?s" YES":"NO")}' 1 2
   
2. 1 6 ==> 1 2 5 6 YES
   
3. 5 7 ==> 5 6 YES
   
4. 6 12 ==> 6 8 12 YES
   
5. 8 10 ==> 8 YES
   
6. 12 17 ==> 12 15 YES
   
7. 15 20 ==> 15 YES
   
8. 31 40 ==> NO

复制代码

?