请教关于锚定的问题

zhenggb

dn:aaa
uid:123
cn:zh
dn:bbb
uid:456
cn:gz

判断dn:aaa与cn:bbb之间是否存在uid:456,正则表达式该如何写？

zhenggb

之前，我是这样写的：m/(\Q$current_DN\E .+?) \Q$_\E (.*?) (dn:|$)/sx   ($current_DN=dn:aaa,$_=uid:123)发现匹配上dn:bbb下的uid:456了

[ 本帖最后由 zhenggb 于 2008-5-3 20:01 编辑 ]

churchmice

这个东西要这么复杂么？
连$_都上了（这里可能会出问题）

zhenggb

实际上不只这几行的，只是举个例子。就是搞不懂怎么匹配指定dn下的某行字符串

churchmice

这个不行？

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my $test_data = <<"TEST";
   
6. dn:aaa
   
7. uid:123
   
8. cn:zh
   
9. dn:bbb
   
10. uid:456
    
11. cn:bbb
    
12. TEST
    
13. 
    
14. my $begin="dn:aaa";
    
15. my $end="cn:bbb";
    
16. my $pattern="uid:456";
    
17. print "Matched at<<<$1>>> \n" if $test_data =~ m/$begin.*?($pattern).*?$end/s;
    

复制代码

ms你的程序中也没有用到anchor啊

zhenggb

谢谢churchmice，我想匹配dn:aaa与dn:***之间，应该怎么写？谢谢

churchmice

原帖由 zhenggb 于 2008-5-3 21:32 发表
谢谢churchmice，我想匹配dn:aaa与dn:***之间，应该怎么写？谢谢

上文中
my $end = "ddd:..."

apile

http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest
叁考看看

flw

原帖由 zhenggb 于 2008-5-3 21:32 发表
谢谢churchmice，我想匹配dn:aaa与dn:***之间，应该怎么写？谢谢

if /dn:aaa/../dn:*/
例子：

1. while(<DATA>){
   
2.     if ( /dn:/.../dn:/ and /uid:123/ ){
   
3.         print "ok\n";
   
4.     }
   
5. }
   
6. 
   
7. __END__
   
8. dn:aaa
   
9. uid:123
   
10. cn:zh
    
11. dn:bbb
    
12. uid:456
    
13. cn:gz

复制代码

如果只需要操作这一种情况的话，用 grep 也行：

1. print "ok\n" if grep /dn:/.../dn:/ && /uid:123/, <DATA>;
   
2. __END__
   
3. dn:aaa
   
4. uid:123
   
5. cn:zh
   
6. dn:bbb
   
7. uid:456
   
8. cn:gz

复制代码

[ 本帖最后由 flw 于 2008-5-4 13:23 编辑 ]

zhenggb

非常感谢各位！！！谢谢^_^