為什么這樣的替換沒起作用

feiying00917

$booknum=1;
$ab='<text:p text:style-name="P332"><text:bookmark-start text:name="__DdeLink__4543_1635711675"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">On schematic page 4, the ground pins GND (8) and THRM_PAD (29) of instances </text:span></text:span><text:bookmark-start text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">U4 (MAXIM – MAX31790)</text:span></text:span><text:bookmark-end text:name="__DdeLink__4543_1635711675"/><text:bookmark-end text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161"> are not connected to ground currently. <text:s/>Recommend connecting these two pins to the ground. <text:s/>(Major)</text:span></text:span></text:p>';

$cd='<text:bookmark-start text:name="__DdeLink__4543_1635711675"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">On schematic page 4, the ground pins GND (8) and THRM_PAD (29) of instances </text:span></text:span><text:bookmark-start text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">U4 (MAXIM – MAX31790)</text:span></text:span><text:bookmark-end text:name="__DdeLink__4543_1635711675"/><text:bookmark-end text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161"> are not connected to ground currently. <text:s/>Recommend connecting these two pins to the ground. <text:s/>(Major)</text:span></text:span>';

$ab=~s/($cd)/<text:bookmark text:name=\"__RefNumPara__80266_$booknum\"\/>$1<text:bookmark-end text:name=\"__RefNumPara__80266_$booknum\"\/>/;

print  $ab;

$cd是$ab的子集，我現(xiàn)在是想在$cd字符串前后加上兩個(gè)標(biāo)記的字符串text:bookmark text:name="__RefNumPara__80266_$booknum"/>和<text:bookmark-end text:name="__RefNumPara__80266_$booknum"/>，這是一段xml的代碼，很亂的。程序運(yùn)行之后發(fā)現(xiàn)$ab的值沒有改變，求高手分析下�。。�

jason680

回復(fù) 1# feiying00917

1. quotemeta
or
2. \Q, \E

more information as below command:
$ perldoc -f quotemeta
or
$ perldoc perlre
$ perldoc perlretut
   

q1208c

這么長的字符串, 真NB. 我表示看不清楚了.

feiying00917

這個(gè)一段xml的文檔，我是想在<text:bookmark-start text:name="__DdeLink__4543_1635711675"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">On schematic page 4, the ground pins GND (8) and THRM_PAD (29) of instances </text:span></text:span><text:bookmark-start text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161">U4 (MAXIM – MAX31790)</text:span></text:span><text:bookmark-end text:name="__DdeLink__4543_1635711675"/><text:bookmark-end text:name="__DdeLink__4522_16357116751"/><text:span text:style-name="Teletype"><text:span text:style-name="T161"> are not connected to ground currently. <text:s/>Recommend connecting these two pins to the ground. <text:s/>(Major)</text:span></text:span>這個(gè)前后加一對(duì)標(biāo)記的字符串， $cd是$ab的子集回復(fù) 3# q1208c


   

q1208c

回復(fù) 4# feiying00917

我的意思是, 你有必要把這么長都是寫進(jìn)去么? 有要標(biāo)識(shí)的位置不就行了?
   

zhlong8

這個(gè)用xml的模塊來處理比較好吧，清晰明了

feiying00917

我很感謝你的留言，我把長字符串用abc代替，其實(shí)和下面的一樣，下面的替換就可以，但是我換成長字符串就不行了，我是奇怪這一點(diǎn)，不是有意把問題描述的復(fù)雜，其實(shí)我們花時(shí)間去說我問題描述的復(fù)雜，還不如找到解決的辦法，請(qǐng)你看下，我覺得

$booknum=1;
$ab='<text:p text:style-name="P332">abc</text:p>';
$cd='abc';
$ab=~s/($cd)/bookmark_start$1bookmark_end/;
print OUTPUT $ab;

回復(fù) 5# q1208c


   

feiying00917

之前我也用了xml的模塊，但是感覺模塊使用比較麻煩，所有我就直接自己在xml里解決了，你用什么建議的模塊回復(fù) 6# zhlong8


   

歐陽西風(fēng)

回復(fù) 1# feiying00917


    其實(shí)2樓已經(jīng)給你指出來了，不知道你有沒有嘗試過？

之所以沒有替換成功，應(yīng)該是$cd變量的值里面是有一些正則表達(dá)式的元字符在里面的，而你現(xiàn)在應(yīng)該是把$cd當(dāng)作一個(gè)普通的字符串，而不是一個(gè)正則表達(dá)式，所以應(yīng)該引起來或者使用\Q \E語法包圍起來。

剛剛看了幾天的perl,還不太熟，我的理解 2樓的意思應(yīng)該是:

1. 
   
2. $ab=~s/(\Q$cd\E)/your pattern/;
   

復(fù)制代碼

@jason680不知道對(duì)不對(duì)？

jason680

回復(fù) 9# 歐陽西風(fēng)

You got it and I had verified already.