如何 perl 正则表达式 ldap 值？

Question

我需要从给定的输出中提取两个值。

kat\, mith(mkat),OU=Site-SJN,OU=Accounts,OU

我正在寻找这两个输出值

$user = kat\, mith(mkat)
$site = Site-SJN

我已经尝试过这些选项。请建议获得以上两个值。

$user =~ s/^.*?://;
$user =~ s/^*.?OU=//;
$site =~ s/^Site?/;

Answer 1

你只提供了最基本的信息，所以我只能告诉你什么对那一行输入数据有效

这是我对什么最适合您的最佳猜测，但我很确定您会回来使用另一条行不通的行

use strict;
use warnings 'all';
use feature 'say';

my $s = 'kat\, mith(mkat),OU=Site-SJN,OU=Accounts,OU';

my ($user) = $s =~ /^([^,]*,[^,]*)/;
my ($site) = $s =~ /\bOU=(Site[^,]*)/;

say $user;
say $site;

输出

kat\, mith(mkat)
Site-SJN

如何 perl 正则表达式 ldap 值？

How to perl regex ldap values?

regex

perl

ldap

输出