请教一个正则问题（上各贴子我没有说清楚。抱歉）

fengpxu

我的操作是一个替换操作。要将所有的this全部都替换掉。但是如果this前面有\，则不对他进行替换。
$data = 'ooooothisoooo\thisoo';
                       这个被替换掉。
                                      前面有\的不被替换
最终希望的结果是
              ooooothatoooo\thisoo

我要如何操作。请指教。。

[ 本帖最后由 fengpxu 于 2007-6-28 11:36 编辑 ]

flw

用断言
《Perl 语言编程》，本版就有，看正则表达式那一章。

alexru

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $str = 'ooooothisoooo\thisoo';
   
7. 
   
8. $str =~ s/[^\\]this/that/g;
   
9. 
   
10. print $str, "\n";
    
11. 
    

复制代码

[ 本帖最后由 alexru 于 2007-6-28 11:46 编辑 ]

flw

原帖由 alexru 于 2007-6-28 11:45 发表

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $str = 'ooooothisoooo\thisoo';
   
7. 
   
8. $str =~ s/[^\\]this//g;
   
9. 
   
10. print $str, "\n";
    

复制代码

如果在字符串一开始，你这个方法就不管用了。

fengpxu

谢谢指教！我已经成功解决了问题！具体方案如下，以供后来者学习。
$data =~s/(?<!\\)this/that/；

himate

this is a dream, nothis is a nice dream, \this is a good dream

上面的方法没法替换这个

dread0

可以替换的吧, 结果如下:
that is a dream, nothat is a nice dream, \this is a good dream

[ 本帖最后由 dread0 于 2007-6-30 18:49 编辑 ]