如何替換字符

hxl208310

我想寫一個(gè)文件, 實(shí)現(xiàn)替換字符的功能
replace.sh startpoint length replacechar file
如果test.txt的內(nèi)容是：
aaaaaaaaaaaa
bbbbbbbbbbbbb
ccccccccccc
dddddddddddddddd

如果運(yùn)行這個(gè)文件之后
replace.sh 2 5 * test.txt
文件中第2列至第6列將替換為*
結(jié)果應(yīng)為：
a*****aaaaaa   
b*****bbbbbbb   
c*****ccccc     
d*****dddddddddd
請問用shell怎么實(shí)現(xiàn)？

qqq112233g

1. sed 's/\(^.\).\{5\}/\1\*\*\*\*\*/g;' file

復(fù)制代碼

lovesaka

原帖由 qqq112233g 于 2006-10-18 22:02 發(fā)表

1. sed 's/\(^.\).\{5\}/\1\*\*\*\*\*/g;' file

復(fù)制代碼

不知是否想過如果要換的字符超過十多個(gè)一行*是否寫得下^_^

1. 
   
2. sed "s/.\{1\}/&$(perl -e 'print "*"x5')/"
   
3.          startpoint                     char  length
   

復(fù)制代碼

上面的三個(gè)地方按照需要自己改動(dòng)一下

[ 本帖最后由 lovesaka 于 2006-10-19 02:55 編輯 ]

pazzazzuri

^.代表什么，可以引用那些aa的？
還有那個(gè){5\}又是什么意思，表示后面的五個(gè)用來替換的變量嗎？
那個(gè){}具體一點(diǎn)怎么用的？

qqq112233g

原帖由 lovesaka 于 2006-10-19 02:54 發(fā)表

不知是否想過如果要換的字符超過十多個(gè)一行*是否寫得下^_^

1. 
   
2. sed "s/.\{1\}/&$(perl -e 'print "*"x5')/"
   
3.          startpoint                     char  length
   

復(fù)制代碼

上 ...

呵呵，學(xué)習(xí)

awk就是awp加ak

awk '{ printf(substr($0, 1, 1)); for (i=1; i<=5; i++) printf("*"); print(substr($0,7)); }' urfile

herolyh

perl -ne 'print substr($_,0,1),"*"x5,substr($_,6)' urfile

ora_length

真是高手啊

awk就是awp加ak

sed復(fù)雜版：

1. 
   
2. sed '1G' a |sed '
   
3.         2 {
   
4.                 :u
   
5.                         s/^.\{0,4\}$/*&/
   
6.                 tu
   
7.                 h;
   
8.         }
   
9.         G
   
10. ' |sed 'N;s/^\(.\).\{1,5\}\([^\n]*\)\n\(.*$\)/\1\3\2/'
    

復(fù)制代碼