全文中任意字符串替換 如何規(guī)避轉(zhuǎn)義符問題？ 直接一個(gè)字符串替換成另一個(gè) 不用正則

YunThanatos

  我在處理分析html網(wǎng)頁
  已經(jīng)解決嵌套的問題了，現(xiàn)在的任務(wù)是將 一段html替換成指定的一個(gè)字符串 比如"@1 "
  html中什么字符都可能會(huì)出現(xiàn) 所以 在使用sed的時(shí)候 經(jīng)常遇到非法字符 所以sed總是出錯(cuò)

  有沒有不用正則直接進(jìn)行文本替換的方法？(主要是元字符總是來搗亂)

  我嘗試使用perl的metaquote 沒有替換效果
  各位朋友有解決方法么？

   ￥%……&*ghukj90hj^&*(<>asd

  比如上面，把全文出現(xiàn)這個(gè)字符串的地方全部替換成'@2 '
  不要說使用'\'進(jìn)行轉(zhuǎn)義 因?yàn)檫@個(gè)字符串是來自另一個(gè)程序處理出來的結(jié)果 是個(gè)變量！什么都可能是的
  也想過寫批量轉(zhuǎn)義的函數(shù) 但是sed的元字符都有什么？嘗試了一下 錯(cuò)誤百出只得放棄

  先謝謝各位了！

YunThanatos

如果實(shí)在解決不了 下一步準(zhǔn)備用python來寫個(gè)替換命令

可是 這是個(gè)非常簡(jiǎn)單的問題啊 在windows上ctrl h就搞定了 難道shell沒有漂亮的解決方法么？我不信

YunThanatos

復(fù)雜點(diǎn)的嵌套都用shell順利搞定了 沒有想到后來竟卡到這個(gè)上面 各位有好的解決方法么？

jason680

回復(fù) 1# YunThanatos

more detail information by 'perldoc -f quotemeta' command

$ export x='￥%……&*ghukj90hj^&*(<>asd'; echo "123 $x abc" | perl -lane '{$x=$ENV{"x"};$qx=quotemeta($x);print "input=$_\npattern=$x";s/$qx/\@2/;print "result=$_"}'
input=123 ￥%……&*ghukj90hj^&*(<>asd abc
pattern=￥%……&*ghukj90hj^&*(<>asd
result=123 @2 abc


$ export x='￥%……&*ghukj90hj^&*(<>asd'; echo "123 $x abc" | perl -lane '{$x=$ENV{"x"};print "input=$_\npattern=$x";s/\Q$x/\@2/;print "result=$_"}'
input=123 ￥%……&*ghukj90hj^&*(<>asd abc
pattern=￥%……&*ghukj90hj^&*(<>asd
result=123 @2 abc
   

YunThanatos

哥們！剛才程序全部通過測(cè)試了��！
太感謝你了！ 我也可以睡覺了 哈哈��！

YunThanatos

謝謝哥們了��！