筛选问题

pony2001mx

大家好：请教一个问题，求perl程序。我需要筛选包含区间1-100的ID，例如下表s1和s4包含了区间1-100，是我想要得到的。非常谢谢！！

ID   区间
s1   1-30
s1   31-100
s2   1-20
s2   21-90
s3   1-90
s4   1-4
s4   5-30
s4   31-100

jason680

回复 1# pony2001mx

$ perl -lane '{@a=split(/[\s-]+/);print if 1<=$a[1]&&$a[2]<=100}' FILE
s1   1-30
s1   31-100
s2   1-20
s2   21-90
s3   1-90
s4   1-4
s4   5-30
s4   31-100

   

pony2001mx

jason680
谢谢回复，但我想要的是s1和s4， 这两个包含了整个1-100区间， s2只包含了1-90， s3也只包含1-90，所以s2，s3不是我想要的。

jason680

回复 3# pony2001mx

$ cat get_id.pl
use strict;
use warnings;


my $sId_last = "";
my %hNum;

while(<DATA>){
  my($sId, $sStart, $sEnd) = split/[\s-]+/;
  range_check($sId_last) if($sId_last ne "" && $sId_last ne $sId);
  
  $hNum{$sId}{"s"} = $sStart if(! exists $hNum{$sId}{"s"});
  $hNum{$sId}{"e"} = $sEnd if(! exists $hNum{$sId}{"e"});

  $hNum{$sId}{"s"} = $sStart if( $hNum{$sId}{"s"} > $sStart);
  $hNum{$sId}{"e"} = $sEnd if( $hNum{$sId}{"e"} < $sEnd);
  
  $sId_last = $sId;
}
range_check($sId_last);

sub range_check{
  my($sId) = @_;
  if($hNum{$sId}{"s"} <= 1 && $hNum{$sId}{"e"} >=100){
    print "$sId\n";
  }
}


__DATA__
s1   1-30
s1   31-100
s2   1-20
s2   21-90
s3   1-90
s4   1-4
s4   5-30
s4   31-100

$ perl get_id.pl
s1
s4

   

pony2001mx

jason680：
谢谢回复!!
我需要认真研读一下。)

清泉一边

一行一行的将数值在0-100之间判断就行吧~回复 1# pony2001mx


   

pony2001mx

清泉一边:
不是的，必须包含整个1-100区间，比如1-40,41-89,90-100满足条件，但1-30,41-89,90-100就不满足条件，因为缺了31-40这个区间。谢谢回复。

清泉一边

哦，那看大神的代码吧~学习~回复 7# pony2001mx


   

huang6894

回复 1# pony2001mx


    这样可以吗？

1. #!/usr/bin/perl -w
   
2. my %h;
   
3. while(<DATA>){
   
4.         chomp;
   
5.         my($k,$s,$e) = (split /\s+|-/);
   
6.         next if (($s<1) or ($e>100));
   
7.         for my $i ($s..$e){
   
8.                 next if grep{$i eq $_}@{$h{$k}};
   
9.                 push @{$h{$k}},$i;
   
10.         }
    
11.         print $k.$/ if scalar @{$h{$k}} eq 100;
    
12. }
    
13. 
    
14. 
    
15. __DATA__
    
16. s1   1-30
    
17. s1   31-100
    
18. s2   1-20
    
19. s2   21-90
    
20. s3   1-90
    
21. s4   1-4
    
22. s4   5-30
    
23. s4   31-100

复制代码

pony2001mx

回复 9# huang6894


    谢谢huang！！