shell

yestreenstars

回复 10# Herowinter

见笑了~
   

聆雨淋夜

[ 本帖最后由 聆雨淋夜 于 2015-06-10 01:15 编辑 ]

学习了。。。

聆雨淋夜

回复 2# jason680
我仿照你的写了一个，出现一个问题
awk 'function gn(s){e=0;split(s,d,"[A-Z]");for(i in d)e+=d;delete d;return e"A"}{a=gensub(/[0-9]+D.*/,"",1,$2);b=gensub(/^.*D/,"",1,$2);c=gensub(/[0-9]+[^D]/,"","g",$2);print $0"\t"gn(a)cgn(b)}' test

print $0"\t"gn(a)cgn(b)  本意是输出gn(a),变量c，gn(b) ，这样写会报cgn函数未定义，怎么写好呢，请教。
   

jason680

回复 13# 聆雨淋夜


    gn(a) c gn(b)

maple412

BEGIN{
FS="[0-9]D"
}
{
        sum1=sum2=0
        s=$0
        pos=match(s,"[0-9]D")
        len_total=length(s)
        pattern_before=substr(s,1,pos)
        pattern_after=substr(s,pos+2,len_total-pos-1)
        len1=split(pattern_before,a,"[A-Z]")
        len2=split(pattern_after,b,"[A-Z]")
        for(i=1;i<len1;i++)
        {
                sum1+=a[i]
        }
        for(j=1;j<=len2;j++)
        {
                sum2+=b[j]
        }
        print sum1"A"a[len1]"D"sum2"A"
}