如何进行这种替换？

aQua99

对文本中一个特定的字符替换
要求第一次出现的地方替换成数字1，第二个替换成2……，第n个替换成n
请问怎么做？

ga0feng

Up.

飞灰橙

替换myfile中所有的chinaunix字符串。

1. perl -e '$i = 0; print substr(join("", map($i++.$_, split("chinaunix", join("", <>)))), 1);' myfile

复制代码

aQua99

多谢了
看来要学perl了

寂寞烈火

是这个意思么?

1. 
   
2. /home/lee#cat file
   
3. a
   
4. b a
   
5. a
   
6. c
   
7. a
   
8. b
   
9. d
   
10. a e
    
11. /home/lee#cat file|awk '/\<a\>/{n+=1}{sub(/a/,n);print}'
    
12. 1
    
13. b 2
    
14. 3
    
15. c
    
16. 4
    
17. b
    
18. d
    
19. 5 e
    

复制代码

lightspeed

如果一行中有多个匹配，可略作修改：

# cat file
aabaaaaaaaaaaaaaaa
abacaadaaeaaaaaaa

# cat file | awk '{while ( sub(/a/,i+1 )) i++;print }'
12b34567891011121314151617
18b19c2021d2223e24252627282930

aQua99

多谢各位了！受益匪浅
awk的内置函数功能好强，我以前都放过没看。。。

yangkundai

怎一个好字了得,长见识了!!谢谢