为什么这样的替换没起作用

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的子集，我现在是想在$cd字符串前后加上两个标记的字符串text:bookmark text:name="__RefNumPara__80266_$booknum"/>和<text:bookmark-end text:name="__RefNumPara__80266_$booknum"/>，这是一段xml的代码，很乱的。程序运行之后发现$ab的值没有改变，求高手分析下！！！

jason680

回复 1# feiying00917

1. quotemeta
or
2. \Q, \E

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

q1208c

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

feiying00917

这个一段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>这个前后加一对标记的字符串， $cd是$ab的子集回复 3# q1208c


   

q1208c

回复 4# feiying00917

我的意思是, 你有必要把这么长都是写进去么? 有要标识的位置不就行了?
   

zhlong8

这个用xml的模块来处理比较好吧，清晰明了

feiying00917

我很感谢你的留言，我把长字符串用abc代替，其实和下面的一样，下面的替换就可以，但是我换成长字符串就不行了，我是奇怪这一点，不是有意把问题描述的复杂，其实我们花时间去说我问题描述的复杂，还不如找到解决的办法，请你看下，我觉得

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

回复 5# q1208c


   

feiying00917

之前我也用了xml的模块，但是感觉模块使用比较麻烦，所有我就直接自己在xml里解决了，你用什么建议的模块回复 6# zhlong8


   

欧阳西风

回复 1# feiying00917


    其实2楼已经给你指出来了，不知道你有没有尝试过？

之所以没有替换成功，应该是$cd变量的值里面是有一些正则表达式的元字符在里面的，而你现在应该是把$cd当作一个普通的字符串，而不是一个正则表达式，所以应该引起来或者使用\Q \E语法包围起来。

刚刚看了几天的perl,还不太熟，我的理解 2楼的意思应该是:

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

复制代码

@jason680不知道对不对？

jason680

回复 9# 欧阳西风

You got it and I had verified already.