一个文本处理问题

downcloud

文本的模式如下
...
a12345
b1
c123
...
我想将其转为
。。。
a1a2a3a4a5
b1
c1c2c3

搞不定，help

lpsir

郁闷
想了一个下午也不会
刚看完sed&awk　白看了　５５５５５５
高手指点

寂寞烈火

猜测一下,是不是这样的结果?

/home/lee#cat a
a12345
b1
c123

1. 
   
2. /home/lee#\
   
3. > awk '{gsub(/./,"& ");str=substr($0,1,1)}\
   
4. {if(NF>2){for(i=2;i<=NF;i++)printf str$i;printf "\n"}\
   
5. else{gsub(/ /,"");print}}' a

复制代码

结果:

a1a2a3a4a5
b1
c1c2c3
/home/lee#

lpsir

感动
看来只看书　不动手是不行的
谢谢了

linux_now

学到东西了，一直都是有点怕awk，看来是要学学awk才行。

ground

烈火,这句:gsub(/./,"& ");(为什么去掉一样执行)
else{gsub(/ /,"");(这句呢?我去掉就没有结果了).

linux_now

else这句打印短句，去掉就不全了；

用sed也可以：
[PHP]
sed '/^[a-z][0-9][0-9][0-9]*$/{s/^\(.\)./\0\1/;:loop /^\(.\).*\1.$/b end; s/^\(.\).*\1./\0\1/;b loop; :end }'

a1a2a3a4
b1
c1c2
d1d2d3d4d5d6d7d8[/PHP]

寂寞烈火

Post by linux_now
else这句打印短句，去掉就不全了；

用sed也可以：
[PHP]
sed '/^[a-z][0-9][0-9][0-9]*$/{s/^\(.\)./\0\1/;:loop /^\(.\).*\1.$/b end; s/^\(.\).*\1./\0\1/;b loop; :end }'

a1a2a3a4
b1
c1c2
d1d2d3d4d5d6d7d8[/PHP]

PFPF

ground

/home/lee#\
> awk '{gsub(/./,"& ");str=substr($0,1,1)}\
{if(NF>2){for(i=2;i<=NF;i++)printf str$i;printf "\n"}\
else{gsub(/ /,"");print}}' a

请问这里的字段分割符是什么,没看到是如何设置fs阿?谢谢