如何使用Netldap读取变量的内容

Question

我正在编写一个脚本，它接收用户名作为参数并在LDAP中执行搜索，但是我找不到在LDAP搜索过滤器中使用Perl变量的方法。

使用的代码如下所示：

package cnmodule;

sub function1 {

  use strict;
  use Net::LDAP;

  my ($local) = @_;
  my $valueA;

  my $ldap = Net::LDAP->new('ad.network',version => 3) 
    or die "Can t connect to LDAP ($@)";

  $valueA = $ldap->bind ("cn=usercheck,cn=users,dc=domain,dc=network", password => 'password'); 
  $valueA->code && die $valueA->error;

  $valueA= $ldap->search(
    base => 'dc=domain,dc=network',
    scope => 'sub',
    filter => '(sn=$local)', 
  );

  $ldap->unbind();

  $valueA->code && die $valueA->error;
  foreach my $entry ($valueA->all_entries) {
    my $valueB = $entry->get_value('CN'); 
  }
  return $valueB;
}

$variableA='test';
$variableB=function1($variableA);
print $variableB;
1;

变量“ldap”包含执行搜索所需的名称，并在$local过滤器中使用，但是在此脚本中，LDAP不会接收该变量的内容，因此不会返回任何内容。

有没有人能给我一个解决方案？

Answer 1

你的问题在这里：

$valueA= $ldap->search(
  base => 'dc=domain,dc=network',
  scope => 'sub',
  filter => '(sn=$local)', 
);

或者，更具体地说，这里：

  filter => '(sn=$local)',

Perl (像许多编程语言一样)不会在单引号的字符串中展开变量。所以您发送的是文字字符串(sn=$local)。修复方法很简单-更改为使用双引号字符串。

  filter => "(sn=$local)",