三目三眼三三删

1cpuer

# [ /home/soio/1bs/awks ] {2018-06-10 07:24:00}
: 1528586640:0;➜  awk 'function p(){if($0){match($0,"^([^@]*)(@+|$)",a);b[++i]=a[1];b[++i]=a[2]?"[@]"length(a[2]) FS:"";gsub("^([^@]*)(@+|$)","");p()}else{for(j=1;j<=i;j++){c=c?c""b[j]:b[j]};print c}}{p()}' kk.kf
1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 f
1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 f1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 fee[@]8 eeee[@]12 eeeeeee[@]9 ff
1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 f1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 fee[@]8 eeee[@]12 eeeeeee[@]9 ff1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 fee[@]8 eeee[@]12 eeeeeee[@]9 ff


# [ /home/soio/1bs/awks ] {2018-06-10 07:24:11}
: 1528586651:0;➜  cat kk.kf
1-2@@@@@@@sss@@@@@@ssssssss@@@@@@@@@@@@@dd@@@@@@@@@f
ee@@@@@@@@eeee@@@@@@@@@@@@eeeeeee@@@@@@@@@ff


#上面的代码我测试好多次了，基本不用测试
a>b?b:c  [三目运算符] 相当与 if {} else {}
那整个相当与 if {} else {} 嵌套循环

球的是
1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 fee[@]8 eeee[@]12 eeeeeee[@]9 ff
或
1-2[@]7 sss[@]6 ssssssss[@]13 dd[@]9 f
ee[@]8 eeee[@]12 eeeeeee[@]9 ff

christmas1102

需要 AWK 4.0+

1. awk '{split($0,a,"[@]+",b);for(i in a){printf a[i];if(b[i]){printf "[@]"length(b[i])" "}}print ""}' FILE

复制代码

AWK 3.0+

1. awk '{split($0,a,"[@]+");gsub(/[^@]+/," ",$0);for(i=1;i<=length(a);i++){printf a[i];if($i){printf "[@]"length($i)" "}}print ""}' FILE

复制代码

1cpuer

回复 2# christmas1102

a, b 第2个不懂
3可
在小男人百科全书里找到了  split  s a [r [seps]]