请教关于锚定的问题

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

1^# zhenggb 发表于 2008-05-03 19:37

请教关于锚定的问题

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

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

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

2^# zhenggb 发表于 2008-05-03 19:41

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-05-03 20:39

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

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

4^# zhenggb 发表于 2008-05-03 20:47

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-05-03 20:56

这个不行？

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my $test_data = <<"TEST";
dn:aaa
uid:123
cn:zh
dn:bbb
uid:456
cn:bbb
TEST

my $begin="dn:aaa";
my $end="cn:bbb";
my $pattern="uid:456";
print "Matched at<<<$1>>> \n" if $test_data =~ m/$begin.*?($pattern).*?$end/s;

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

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

6^# zhenggb 发表于 2008-05-03 21:32

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

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

7^# churchmice 发表于 2008-05-03 22:35

QUOTE:

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

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

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

8^# apile 发表于 2008-05-04 13:11

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

9^# flw 发表于 2008-05-04 13:22

QUOTE:

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

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

[Copy to clipboard] [ - ]

CODE:

while(<DATA>){
if ( /dn:/.../dn:/ and /uid:123/ ){
print "ok\n";
}
}

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

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

[Copy to clipboard] [ - ]

CODE:

print "ok\n" if grep /dn:/.../dn:/ && /uid:123/, <DATA>;
__END__
dn:aaa
uid:123
cn:zh
dn:bbb
uid:456
cn:gz

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

10^# zhenggb 发表于 2008-05-04 22:08

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