序号连续性问题的判断

dream3401

学习一下楼上的"序号"思路:
perl -ne 'unless(defined $old){$old=$_;next} printf "%d:%05s\n",$.,$old until ++$old==$_;' a.txt
同楼上一样的前提

[ 本帖最后由 dream3401 于 2009-3-16 13:11 编辑 ]

liaosnet

這個好~~剛我還在想怎麽處理這個多個缺失的問題.. 學習了...

1. 
   
2. awk 'NR==1{sn=$1-1}NR>1{if(sn<$1-NR){print "line "NR" need:"$1-1;sn=$1-NR}}'
   

复制代码

dream3401

楼上的可能不行哟
awk 'NR==1{a=$1;}NR>1{while(++a!=$1)printf "%d:%05d\n",NR,a}' a.txt

princes1

嗯 我是先SORT后再对这个文件进行处理的

kvkingdom

想了半天也没有想出什么好办法，不过下面代码应该能准确无误得出结果
[root@localhost shell]# cat test.txt
100     asdfsdff
1000    asdfsdfsadfsaf
1       asdfsfasf
2       asasdfasf
3       asdfsafdsaf
5       sadfsdfsafsdf
4       assdfsadfsffsdf
6       asdfasdfdsfsaf
7       asdfasfdfasf
8       asdfasdfasdfsdf
1000    asdfasdfasfdaf

[root@localhost shell]# cat test.awk
#!/bin/awk -f

{
    tmp[NR] = $0
    if (NR > 1)
    {
        split(tmp[NR-1],arry1)
        if ($1 != arry1[1] + 1)
        {
            if (NR - 1 == 1)
            {
                print tmp[NR-1]
                flag+=1
             }else{
                flag+=1
             }
            if (flag > 1)
                print tmp[NR-1]
        }else{
            flag = 0
        }
    }
}
END{
    split(tmp[NR],endarry)
    if (endarry[1] != arry1[1] + 1)
        print tmp[NR]
}
[root@localhost shell]# ./test.awk test.txt
100     asdfsdff
1000    asdfsdfsadfsaf
5       sadfsdfsafsdf
4       assdfsadfsffsdf
1000    asdfasdfasfdaf