请教个文本处理问题

ccie307

原始文件格式这种样子
&1=99&2=100
&1=100&3=111
&1=99&2=1&3=111
&1=99&3=111&4=110
&1=99&2=111&3=66&4=100&5=44
打印出结果为
99     100     0        0       0
100   0         111    0       0
99     1         111    0       0
99     0         111    110   0
99     111     66      110   44

请教大家

dream3401

sed 's/[&=]/ /g' file|awk '{for(k=1;k<=5;k++) a[k]="x";for(k=1;k<=NF;k+=2) a[$k]=$(k+1);for(k=1;k<=5;k++){if(a[k] !~ /[0-9]+/) a[k]=0;} print a[1],a[2],a[3],a[4],a[5];}'

上面的5是根据一行数据项的数目来定的.
用perl
perl -nWle '@exp=/&(\d+=\d+)/g;@field[0..4]=(0,0,0,0,0);do { s/^(\d+)/\$field[$1-1]/;eval ($_);} for @exp;print join(" ",@field);' file
简化一下:
perl -nWle '$,=" ";@field{1..5}=(0,0,0,0,0);%field=(%field,/\d+/g);print map { $field{$_} } sort keys %field;' file

也写个bash的
cat file|while read line;do result=(0 0 0 0 0 0);field=(${line//[&=]/ });result=$field;for((i=1;i<${#field[@]};i+=2));do pos=${field[$i]};value=${field[$i+1]};result[$pos]=$value;done;echo "${result[@]}";done

[ 本帖最后由 dream3401 于 2009-3-6 07:44 编辑 ]

ccie307

sed 's/[&=]/ /g' tay.log|awk '{for(i=1;i<=5;i++) a=" ";for(i=1;i<=NF;i+=2) a[$i]=$(i+1);for(i=1;i<=5;i++){if(a !~ /[0-9]+/) a=0;} print a[1],a[2],a[3],a[4],a[5];}'
awk: (FILENAME=- FNR=1) fatal: attempt to use scalar `a' as array
报错啊 呵呵

justlooks

1. awk 'BEGIN{FS="&";}{for(i=2;i<=6;i++){indx=substr($i,1,1);if(length(indx)==0){for(j=i-1;j<=6;j++){length(a[j])?1:a[j]=0};break;};if(indx!=i-1){a[i-1]=0;};a[indx]=substr($i,3);};for(i=1;i<=5;i++){printf("%3s   ",a[i])};printf "\n";}'
   

复制代码

刚才有点小错误重新编辑，现在OK了（洗脚水都凉了：（  ）

[ 本帖最后由 justlooks 于 2009-3-5 21:39 编辑 ]

dream3401

原帖由 ccie307 于 2009-3-5 20:56 发表
sed 's/[&=]/ /g' tay.log|awk '{for(i=1;i

可能是论坛的原因吧,我开始写的是a[ i ]数组的形式,结果一发表,都成了标量的a,现在改了一下,变成a[k],就好了

[ 本帖最后由 dream3401 于 2009-3-5 21:36 编辑 ]

ccie307

谢谢兄弟们了

ccie307

再加点儿 需求 嘿嘿

172.27.38.0&1=99&2=100
192.168.9.2&1=100&3=111
202.96.64.68&1=99&2=1&3=111
202.96.69.38&1=99&3=111&4=110
202.77.88.99&1=99&2=111&3=66&4=100&5=44

172.27.38.0   99     100     0        0       0
192.168.9.2   100   0         111    0       0
202.96.64.68  99     1         111    0       0
202.96.69.38  99     0         111    110   0
202.77.88.99  99     111     66      110   44

HH106

awk -F'[&=]' 'BEGIN{for(j=1;j<=6;j++)a[j]=0}{for(k=2;k<NF;k+=2)a[$k]=$(k+1);for(k=1;k<=5;k++)printf k==5?a[k]"\n":a[k]"\t";for(j=1;j<=6;j++)a[j]=0}' urfile

HH106

原帖由 ccie307 于 2009-3-5 21:52 发表
再加点儿 需求 嘿嘿

172.27.38.0&1=99&2=100
192.168.9.2&1=100&3=111
202.96.64.68&1=99&2=1&3=111
202.96.69.38&1=99&3=111&4=110
202.77.88.99&1=99&2=111&3=66&4=100&5=44

172.27.38.0   99     100     0        0       0
192.168.9.2   100   0         111    0       0
202.96.64.68  99     1         111    0       0
202.96.69.38  99     0         111    110   0
202.77.88.99  99     111     66      110   44

awk -F'[&=]' 'BEGIN{for(j=1;j<=6;j++)a[j]=0}{for(k=2;k<NF;k+=2)a[$k]=$(k+1);print $1"\t"a[1]"\t"a[2]"\t"a[3]"\t"a[4]"\t"a[5];for(j=1;j<=6;j++)a[j]=0}' urfile

dream3401

加点要求,就把字段往后推一下:
awk -F'[&=]' '{a[1]=$1;for(k=2;k<=6;k++) a[k]="0";for(k=2;k<=NF;k+=2) a[$k+1]=$(k+1); print a[1],a[2],a[3],a[4],a[5],a[6];}' file