求助大神文本处理

moperyblue

1. awk 'NR==FNR{split($0,a,"x");b[NR,0]=a[1];b[NR,1]=a[2];c[NR]=$0;next}{i=0;s=c[FNR]" =";while(i++<NF){split($i,d,"x");if(d[1]>=b[FNR,0]&&d[2]<=b[FNR,1])s=s FS $i}print s}' b.txt a.txt

复制代码

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

jason680

回复 6# ma3501406

$ awk 'function ck(_,s,e){return(s<=a[_,1]&&a[_,1]<=e&&s<=a[_,d[_]]&&a[_,d[_]]<=e)}
FNR==NR{for(n=1;n<=NF;++n){++_;t=split($n,m,"x");a[_]=$n;d[_]=t;a[_,1]=m[1];a[_,t]=m[t]}next}{p=$1" =";split($1,m,"x");for(n=1;n<=_;++n)if(ck(n,m[1],m[2]))p=p" "a[n];print p}' a.txt b.txt
7x19 = 7 8 9x15 16 17x19
41x44 = 41 42 43 44

moperyblue

回复 6# ma3501406

1. awk 'NR==FNR{k=NR;split($0,a,"x");b[k,0]=a[1];b[k,1]=a[2];c[k]=$0;next}{s=p="";for(i=1;i<=NF;i++){l=split($i,d,"x");if(l<2){d[1]=d[1];d[2]=d[1]}for(j=1;j<=k;j++){if(d[1]>=b[j,0]&&d[2]<=b[j,1]){if(!p) {s = c[j]" =";p=1}s=s FS $i}}}if(s)print s}' b.txt a.txt

复制代码

龙牙地主天

1. awk 'NR==FNR{a[++n]=$0 ; next}{printf a[++m]" = " ; split(a[++j],k,"x") ; for(i=1;i<=NF;i++) {split($i,d,"x") ; if(d[1] >= k[1] && d[1] <= k[2])  printf $i" " ; delete d} printf "\n"}' b.txt a.txt

复制代码