關(guān)于正則表達式替換的問題

Strange

舉例說明一下
如果現(xiàn)在有這個字符串
aaa=foo=ccc
我用
s/(.*)=.*=(.*)/$1=bar=$2/;
可以吧字符串替換成
aaa=bar=ccc
但是如果我把替換的內(nèi)容先放到字符串里面的話
$a = $1=bar=$2;
然后
s/(.*)=.*=(.*)/$a/;
這樣的話，$a里面的$1,$2就不會被替換了，結(jié)果是
$1=bar=$2
有沒有辦法把這種情況下的替換結(jié)果也能夠和直接寫在正則表達式里面一樣啊？

莫愁

這樣子就可以了：

1. D:\MoChou>cat lazy.pl
   
2. $_ = 'aaa=foo=ccc';
   
3. $a = '$1=bar=$2';
   
4. $_ = $` . eval qq("$a") . $' if m/(.*)=.*=(.*)/;
   
5. print "$_\n";
   
6. 
   
7. D:\MoChou>lazy
   
8. aaa=bar=ccc
   
9. 
   
10. D:\MoChou>

復(fù)制代碼

[ 本帖最后由 莫愁 于 2006-5-15 16:51 編輯 ]

莫愁

也就是說，用下面這句

1. $_ = $` . eval qq("$a") . $' if m/(.*)=.*=(.*)/;

復(fù)制代碼

來代替原來的這一句：

1. s/(.*)=.*=(.*)/$a/;

復(fù)制代碼

tobyhoo

原帖由 Strange 于 2006-5-15 15:50 發(fā)表
舉例說明一下
如果現(xiàn)在有這個字符串
aaa=foo=ccc
我用
s/(.*)=.*=(.*)/$1=bar=$2/;
可以吧字符串替換成
aaa=bar=ccc
但是如果我把替換的內(nèi)容先放到字符串里面的話
$a = $1=bar=$2;
然后
s/(.*)=.*=(.*) ...

試試：s/(.*)=.*=(.*)/\1=bar=\2/;

Strange

感謝莫愁的辦法

tobyhoo的辦法好像沒用的，按照perl文檔里面寫的，推薦使用$1來代替\1以便避免不必要的escape麻煩

莫愁

原帖由 Strange 于 2006-5-16 10:06 發(fā)表
感謝莫愁的辦法

tobyhoo的辦法好像沒用的，按照perl文檔里面寫的，推薦使用$1來代替\1以便避免不必要的escape麻煩

剛又試了下，其實這樣也行：

1. s/(.*)=.*=(.*)/eval qq("$a")/e;

復(fù)制代碼

作為對比，帖出原文（錯誤，不能達到預(yù)期的效果）：

1. s/(.*)=.*=(.*)/$a/e;

復(fù)制代碼