perl 匹配替换的问题。急

bird528

比如现在有好几个html文件。 每个文件中都有类似于 <p> <b>1. Acceptance </b> </p> 的标签。
这里面的1. Acceptance表示标题。 我要找到所有包含标题的 <p> 标签。 然后将p标签变为 <h4> 标签. 但是 <p>标签和标题之间可能还有其他的标签 比如 <b>. 我只需要改变相应 <p>为 <h4>， 其他的内容保持不变。

我现在写的表达式 是 。 $_ =~ s/ <p>(.*?\d+\..*?) <\/p>/ <h4>$1 <\/h4>/g  但是这样根本替换不了。


请高手帮指点一下吧。 多谢了

toniz

<p>(.*?)<\/p> 这样不就行了？
或者用

blackold

<p>前多了个空格吧。

ttcn

用正则表达式的时候除了用斜杠，也可以用其他任意符号，让正则表达式清晰容易写出正确的代码

  1 #!/usr/bin/perl
  2 my $html=<<'HTMLEND';
  3 <p> <b>1. Acceptance </b> </p>
  4 HTMLEND
  5 print $html;
  6 $html=~s!<p>(.*?\d+\..*?)</p>!<h4>$1</h4>!g;
  7 print $html;

DQP

! 会与negative assertions冲突。(这东西翻译成否定断言么。。。。 怎么听上去这么别扭呢）
我一般用s{}{}

xuanfei

原帖由 bird528 于 2009-9-16 05:18 发表
比如现在有好几个html文件。 每个文件中都有类似于  1. Acceptance   的标签。
这里面的1. Acceptance表示标题。 我要找到所有包含标题的  标签。 然后将p标签变为  标签. 但是 标签和标题之间可能还有其他的 ...

perl -pe 's#<(/){0,1}b>#<$1h4>#g' example.html

ttcn

有理！多谢指出！

ermu

那会不会有什么多行的问题呢？

HongLian3

楼主还要确定找到的是包含标题的 <p> 标签吧~

HongLian3

同意黑哥的说法，去掉空格之后，楼主的表达式就能正常工作了。