如何在perl匹配中正则表达并组合两个单词？

Question

我正在尝试从给定的行中复制一个值并分配给name。我没有得到预期的。你能建议吗？

my line = "manager: CN=rakhi\\, test,OU=Site-SIN,OU=Accounts_user,OU=main,OU=site,";
my $ln = qq{$line};
if ($ln =~ /\(([^)]*)/) 
{
   print $1;
}

预期结果= trakhi

Answer 1

始终在代码中使用 $searchResult->andFilterWhere([ 'or', ['like', 'HRMS_candidatePrimarySkills', $keywordsArrayTrimed[$i]], ]); 和use warnings;。

我猜你期待输出 rakhi ，如果有的话，试试这个：

use strict;

输出：

my $line = qq{manager: CN=rakhi\\, test,OU=Site-SIN,OU=Accounts_user,OU=main,OU=site,};
if ($line =~ m/CN=(.*)\\/) 
{
    print $1, "\n";
}