求助大神文本处理

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $data = {};
   
6. while(<DATA>){
   
7.         chomp;
   
8.         !length and last;
   
9.         $data->{$_} = [split(/x/)];
   
10. }
    
11. 
    
12. while(<DATA>){
    
13.         foreach my $k (keys %$data){
    
14.                 my @aT = map {[split(/x/)]} split;
    
15.                 next if($data->{$k}[0] < $aT[0][0]);
    
16.                 my @aOut = map {join('x', @$_)} grep {$data->{$k}[0] <= $_->[0] and $data->{$k}[-1] >= $_->[-1]} @aT;
    
17.                 if(@aOut){
    
18.                         print(join("\t", $k, @aOut), "\n");
    
19.                 }
    
20.         }
    
21.        
    
22. }
    
23. 
    
24. __DATA__
    
25. 7x25
    
26. 29x35
    
27. 36x45
    
28. 
    
29. 1x5 6 7 8 9x15 16 17x19 20 21x25
    
30. 26 27 28 29 30x31 32x35
    
31. 36x40 41 42 43 44 45
    

复制代码

sunzhiguolu

本友会机友会摄友会 发表于 2017-08-14 13:02
21*25在7*25之中吗？ 我看不懂题

看哪个结果应该是满足的。

7 <= 21 and 25 >= 25