看一下這個正則表達式(還沒完全解決，見1樓)

ztkx

需要匹配的是xxxXX, x is [a-zA-Z0-9]，首字母不為數字,XX為一特定的單詞

最先想到的是lookingbehind，但是似乎只能在前面定長的情況下，比如foo(?=bar)
如果我想匹配fobar,foobar,lsbar等等怎麽辦

當然只是一個獨立的單詞好辦，問題是這是一個字符串的一部分，所以沒法用bar$

thanks for help

還有一些疑問,對於這樣一個dn

1. my $dn = "cn=admin, ou=10HH,ou=JCAC,ou=CCXX,ou=ooCA,ou=XXCA,ou=RootCA";
   

复制代码

1. my $dn_re = '^(cn\s*=\s*\w+)\s*,\s*
   
2. ((ou\s*=\s*\w*?(?!CA)\b\s*,\s*)*?)
   
3. ((ou\s*=\s*\w*CA\b\s*,\s*)*?)
   
4. (ou\s*=\s*RootCA)';
   

复制代码

這個表達式的匹配是正確的

1. 
   
2. $1 = cn=admin
   
3. $2 =  ou=10HH,ou=JCAC,ou=CCXX,
   
4. $4 = ou=ooCA,ou=XXCA,
   
5. $6 = ou=RootCA
   

复制代码

但是這個就不對了

1. my $dn_re = '^(cn\s*=\s*\w+)\s*,\s*
   
2. ((ou\s*=\s*\w*?(?!CA)\b\s*,\s*)*)
   
3. ((ou\s*=\s*\w*[b](?=CA)[/b]\b\s*,\s*)*)
   
4. (ou\s*=\s*RootCA)';
   

复制代码

使用?=斷言或者沒有對二、四組使用非貪婪模式，都回導致匹配錯誤，這時候

1. 
   
2. $2 = ou=10HH,ou=JCAC,ou=CCXX,ou=ooCA,ou=XXCA,
   
3. $4 = undef
   
4. $6 = ou=RootCA
   

复制代码

guap514

回复 1# ztkx


    bar\b

ztkx

回复 2# guap514

不好意思，寫錯了我不該寫$的，具體是這樣

ou=xxxx,ou=xxxx,ou=xxxCA,ou=xxxxCA,

沒辦法，以前的系統是這麽寫的，所以我現在要把CA域分離出來，like ou=xxxCA,ou=xxxxCA,
ou的個數不固定，xxx的位數也不固定

黑色阳光_cu

my $str = "ou=xxxx,ou=xxxx,ou=xxxCA,ou=xxxxCA";
while ($str =~ /(ou=[a-zA-Z]\w*CA)/g)
{
        print $1, "\n";
}

yybmsrs

split一下不是可以用\b了

ztkx

回复 4# 黑色阳光_cu

謝謝，如果xxxx内部包含CA呢, like ou=ACAD, or ou=DCANUCA

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;

my $str = "ou=xxxx,ou=xxxx,ou=xxxCA,ou=xxxxCA, ou=ACAD, ou=DCANUCA";
while ($str =~ /(ou=[a-zA-Z]\w*CA)\b/g)
{
        print $1, "\n";
}

ztkx

thanks

shilin320

while ($str =~ /(ou=[a-zA-Z]\w*CA)$/g；
为什么换成这样就只能打印出ou=DCANUCA
$不是正则表达式里的字符串结束么

ztkx

1. 
   
2. my $ca_re = '((ou=\w*CA\B)*)((\,ou=\w*CA\b)*)';
   
3. my $ca = 'ou=NCAC,ou=CACA,ou=LDNCACCA';
   
4. 
   
5. my @matched_arr = $ca =~ /$ca_re/;
   
6. for (0..$#matched_arr) {
   
7.         if ($matched_arr[$_]) {
   
8.         print $_."=".$matched_arr[$_]."\n";
   
9. }
   
10. 
    

复制代码

output:

1. 
   
2. 0=ou=NCA
   
3. 1=ou=NCA
   
4. 10=,ou=CACA,ou=LDNCACCA
   
5. 11=,ou=LDNCACCA
   

复制代码

0,1匹配值不對，10，11，有這麽多分組麽

g是做什麽用的，這裡沒有多次匹配的問題啊，但如果不加g,則只能匹配0，1分組，也即

1. ((ou=\w*CA\B)*)

复制代码

sorry ，這樣做不對，我再改改先

1. my $ca_re = '((ou=\w*(?!CA)\b)*)((\,ou=\w*CA\b)*)';

复制代码

ok了