重复数字之间距离

addictlinux

1. #!/bin/awk -f
   
2. {temp=$1;
   
3.   num=NR;
   
4.   for(i in a)
   
5.     if(a[i]==temp){
   
6.        str=num-i-1;
   
7.        delete a[i];
   
8.        result[temp]=result[temp]" "str;
   
9.     }
   
10.        a[num]=$1;
    
11. }
    
12. 
    
13. END{for(i in result)
    
14.        print i,result[i];
    
15.     }

复制代码

ywlscpl

我也换个思路写一个

1. awk 'a[$1]++{r[$1]=r[$1]" "NR-n[$1]-1}{n[$1]=NR}END{for (i in r) printf i": "r[i]"\n"}' file

复制代码

nxlinux

1. 
   
2. awk '{a[$0]++;if(a[$0]>1){for(i=NR;i>=1;i--){if(b[i]==$0){break}};print $0,NR-i-1};b[NR]=$0}' aaa
   
3. 
   

复制代码

iori809

回复 6# blackold


    黑哥说话总是透着

ashlv

1. 
   
2. cat file01 |sed "s# ##g"| awk '/./{printf $1" "}'|sed "s#121#x#g"|sed "s#^[^x]\+##g"|sed "s# [^x ]\+#y#g"|sed "s# x.\+##g"|awk '{printf $0}'|wc|awk '{printf $3}'
   

复制代码

投机倒把

好看的附件

我也来个

1. awk '$1 in arr{print $1,NR-arr[$1]-1}{arr[$1]=NR}' file

复制代码

jiwang1980

回复 9# ywlscpl


    学习了

BangBull

有使用 sed 搞定的不 , 想不下去了

1. centos1 ~ # sed '=' c | sed -n 'N ;s/\n/ / ; /121/p'
   
2. 1 121
   
3. 7 121
   
4. 12 121
   
5. 15 121
   

复制代码

wswzjdez

1. #! /usr/bin/perl
   
2. my %h;
   
3. while(<>) {
   
4.         chomp;
   
5.         if (exists $h{$_}) {
   
6.                 $h{$_} =~ s/(\d+)$/$.-1-$1.' '.$./e;
   
7.         } else {
   
8.                 $h{$_} = ' ' . $.;
   
9.         }
   
10. }
    
11. while(($k , $v) = each %h) {
    
12.         $v =~ s/ \d+$//;
    
13.         print "$k => $v\n" if $v;
    
14. }

复制代码

addictlinux

多谢大家给出这么多解决方法。