Petite question, j’ai ceci (line 65 du script joint environ) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
# Get the dn
my $dn = $entry->dn();
if (($dn eq "") || ($dn =~ /^[\\$CODE_HEXA_DEBUT_NUMERO]/)) {
$error = 1;
&Log("There is a problem with the dn >dn: $dn<");
} else {
print "Ajout Loic --- dn avant=$dn\n";
print "Ajout Loic --- CODE_HEXA_DEBUT_NUMERO=$CODE_HEXA_DEBUT_NUMERO\n";
print "Ajout Loic --- CODE_INTERNATIONAL=$CODE_INTERNATIONAL\n";
print "Ajout Loic --- PREFIX=$PREFIX\n";
$dn =~ s!$CODE_HEXA_DEBUT_NUMERO$CODE_INTERNATIONAL!$CODE_HEXA_DEBUT_NUMERO$CODE_INTERNATIONAL$PREFIX!;
print "Ajout Loic --- dn apres=$dn\n\n\n";
                        }
Donc normalement, ce script doit remplacer par exemple 2B33 par 2B3388 mais cela ne fonctionne pas :

Ajout Loic --- dn avant=weblogin=\2B332991683,ou=range30,ou=weblogin,ou=INDEXES,o=alcatel,c=fr
Ajout Loic --- CODE_HEXA_DEBUT_NUMERO=2B
Ajout Loic --- CODE_INTERNATIONAL=33
Ajout Loic --- PREFIX=88
Ajout Loic --- dn apres=weblogin=\2B332991683,ou=range30,ou=weblogin,ou=INDEXES,o=alcatel,c=fr

Mais quand j’exécute les commandes à la main ca à l’air OK :
[root@asvms5 root]# /usr/bin/perl -de l
Loading DB routines from perl5db.pl version 1.19
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): l
DB<1> $CODE_HEXA_DEBUT_NUMERO="2B"
DB<2> $CODE_INTERNATIONAL=33
DB<3> $PREFIX=88
DB<4> print $CODE_HEXA_DEBUT_NUMERO
DB<5> 2B
DB<5> print $CODE_INTERNATIONAL
DB<6> 33
DB<6> print $PREFIX
DB<7> 88
DB<12> $dn="weblogin=\\2B332991683,ou=range30,ou=weblogin,ou=INDEXES,o=alcatel,c=fr"
DB<13> print $dn
DB<14> weblogin=\2B332991683,ou=range30,ou=weblogin,ou=INDEXES,o=alcatel,c=fr
DB<14> $dn =~ s!$CODE_HEXA_DEBUT_NUMERO$CODE_INTERNATIONAL!$CODE_HEXA_DEBUT_NUUMERO$CODE_INTERNATIONAL$PREFIX!
DB<15> print $dn
DB<16> weblogin=\33882991683,ou=range30,ou=weblogin,ou=INDEXES,o=alcatel,c=fr
Auriez-vous une idée ???