G'day Cornichon,

Welcome to the Monastery.

"It's not working, ..."

I see a problem has been pointed out.

You'll often encounter the same problem when writing one-liners: the code needs to be delimited by single- or double-quotes (depending on the platform) which can be a problem if the code itself needs to use similar quotes.

"... does anyone have a solution for me?"

The solution is to use alternative quotes. Have a look in perlop. You'll find general information under "Quote and Quote-like Operators"; and more specific details under "Quote-Like Operators".

Here's a couple of examples.

First, using alternative quotes to replicate what your code is currently doing:

$ perl -E 'my $name = q{Ken}; say q{(sn = $name)}'
(sn = $name)
[download]

Next, using alternative quotes to achieve what you want your code to be doing:

$ perl -E 'my $name = q{Ken}; say qq{(sn = $name)}'
(sn = Ken)
[download]

Are you aware that single-quoted strings do not interpolate?

c:\@Work\Perl\monks>perl -wMstrict -le
"my $name = 'foobleooble';
 print '(sn = $name)';
"
(sn = $name)
[download]

Thank you for your answers, unfortunately after many tests, the LDAP filter does not use the value contained in the variable.

I put you the code that I currently use to see if you have another solution :

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 => qq{(sn=q{$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;
[download]