awk 判断每行的前18个字符否是连续的数字行

18800375280

需求：在ufile文件中，每行有19个字符数，判断每行前18个字符数与一下行前18个字符数，是否是连续数字的行，
如果是连续的行，则打印出连续行的起始行（带上最后一位字符，共19位字符）和连续行的末尾行（带上最后一位字符，共19位字符），之间用"-"分割；各段之间用"\n"分割（换行）；
反之，则直接打印该行字符（19位）。

源文件：（例子中只截取了26行，带行号）
[root@www src]# nl ufile
     1        6200374842000114051
     2        6200374842000114069
     3        6200374842000114077
     4        6200374842000114101
     5        6200374842000114119
     6        6200374842000114127
     7        6200374842000114135
     8        6200374842000114150
     9        6200374842000114168
    10        6200374842000114176
    11        6200374842000114184
    12        6200374842000114200
    13        6200374842000114218
    14        6200374842000114234
    15        6200374842000114242
    16        6200374842000114259
    17        6200374842000114275
    18        6200374842000114283
    19        6200374842000114291
    20        6200374842000114309
    21        6200374842000114317
    22        6200374842000114325
    23        6200374842000114333
    24        6200374842000114341
    25        6200374842000114358
    26  6200374842000114389

结果：
6200374842000114051-6200374842000114077
6200374842000114101-6200374842000114135
6200374842000114150-6200374842000114184
6200374842000114200-6200374842000114218
6200374842000114234-6200374842000114259
6200374842000114275-6200374842000114358
6200374842000114389

sunzhiguolu

如何理解这个连续数字的行，文中这些记录不都是连续的数字吗？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $R = qr /((.*).)/;
   
6. my ($n, @aData);
   
7. while (<DATA>){
   
8.     (undef, local $_) = split;
   
9.     if (!@aData){
   
10.         @aData = /$R/;
    
11.         next;
    
12.     }
    
13. 
    
14.     $n++;
    
15.     if (/$R/ and $2 == $aData[1] + $n){
    
16.         $aData[2] = $1;
    
17.         next;
    
18.     }
    
19.     print "$aData[0]-$aData[-1]\n";
    
20.     @aData = /$R/;
    
21.     $n = 0;
    
22. }
    
23. 
    
24. print $aData[0], @aData == 3 ? "-$aData[-1]" : "", "\n";
    
25. __DATA__
    
26. 1        6200374842000114051
    
27. 2        6200374842000114069
    
28. 3        6200374842000114077
    
29. 4        6200374842000114101
    
30. 5        6200374842000114119
    
31. 6        6200374842000114127
    
32. 7        6200374842000114135
    
33. 8        6200374842000114150
    
34. 9        6200374842000114168
    
35. 10        6200374842000114176
    
36. 11        6200374842000114184
    
37. 12        6200374842000114200
    
38. 13        6200374842000114218
    
39. 14        6200374842000114234
    
40. 15        6200374842000114242
    
41. 16        6200374842000114259
    
42. 17        6200374842000114275
    
43. 18        6200374842000114283
    
44. 19        6200374842000114291
    
45. 20        6200374842000114309
    
46. 21        6200374842000114317
    
47. 22        6200374842000114325
    
48. 23        6200374842000114333
    
49. 24        6200374842000114341
    
50. 25        6200374842000114358
    
51. 26  6200374842000114389
    

复制代码

sunzhiguolu

回复 3# ll104567
那就来一个?!

yinyuemi

awk -M -vFIELDWIDTHS="18 1" '{if($1==ss+1){p=1}else{if(p){p=0;printf "-"ss b RS $1 $2}else{printf (NR==1?"":",")$1 $2}}}{ss=$1;b=$2}'

jason680

回复 1# 18800375280

$ awk 'function d1(p,n){return (substr(p,1,9)==substr(n,1,9)&&substr(p,10,9)+1==substr(n,10,9))}function x(){if(s!=p)print c P;printf $1;c="-";s=p=n;P=$1;next}{n=substr($1,1,18);if(s=="")x();if(d1(p,n)){p=n;P=$1;next}x()}END{print (s!=p)?c P:""}' ufile
6200374842000114051-6200374842000114077
6200374842000114101-6200374842000114135
6200374842000114150-6200374842000114184
6200374842000114200-6200374842000114218
6200374842000114234-6200374842000114259
6200374842000114275-6200374842000114358
6200374842000114389

moperyblue

1. awk 'function s(a,len){return substr($0,a,len)}s(1,10)==p1&&s(11,8)-p2!=1&&NR>1{print  "-" RS $0;p1=s(1,10);p2=s(11,8);next}{p1=s(1,10);p2=s(11,8);print}' ufile |awk -vRS=- '{print $1 (NF>1?RS $NF:"")}'

复制代码

1. awk -M -vFIELDWIDTHS="18 1" 'function p(){print (length(a)>1)?a[1]"-"a[length(a)]:a[1]}$1-s!=1&&a[1]{p();delete a;i=0;s=$1;a[++i]=$0;next}{s=$1;a[++i]=$0}END{p()}' ufile #GNU Awk 4.1.4, API: 1.1 (GNU MPFR 2.4.1, GNU MP 4.3.1)

复制代码

18800375280

回复 7# jason680
jason大神的代码好使，灰常感谢！！

18800375280

回复 6# yinyuemi

ss博就是吊，awk4.x 没装，暂时没有测试！

18800375280

回复 7# jason680
我发现一个bug：如果文本是：
6200374842000114063
6200374842000114093
6200374842000114101
6200374842000114127
6200374842000114143
6200374842000114150
6200374842000114168
6200374842000114176
6200374842000114184
6200374842000114192

非连续的行，出来的结果没换行！
希望再优化一下！


[root@]# cat ufile
6200374842000114063
6200374842000114093
6200374842000114101
6200374842000114127
6200374842000114143
6200374842000114150
6200374842000114168
6200374842000114176
6200374842000114184
6200374842000114192
[root@]# awk 'function d1(p,n){return (substr(p,1,9)==substr(n,1,9)&&substr(p,10,9)+1==substr(n,10,9))}function x(){if(s!=p)print c P;printf $1;c="-";s=p=n=$1;next}{n=substr($1,1,1;if(s==""x();if(d1(p,n)){p=n=$1;next}x()}END{print (s!=p)?cP:""}' ufile
62003748420001140636200374842000114093-6200374842000114101
62003748420001141276200374842000114143