Discussion :

[maxouff]

Bonjour,

je fais une extraction d'un annuaire LDAP vers un fichier LDIF avec un

$mesg = ldap->search(...)

puis

ldif->new ($outputFile,"w")->write($mesg->entries);

mon problème est que lorsque qu'un ligne est trop longue il me fait un retour à la ligne suivi d'un espace. Comment puis-je les supprimer afin que mon fichier soit par la suite exploitable.

J'ai essayé :

my $chaine = $mesg->entries ;
$chaine =~ s/\r\n //g;
ou
$chaine =~ s/\x0D\x0A //g;
et d'autres mais rien ne fonctionne

Est ce quelqu'un serait m'aider ?

Merci, bonne journée

[Katachana]

et comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$chaine =~ s/\n+ //g;
$chaine =~ s/\r+ //g;

[maxouff]

effectivement ça à l'air de fonctionner par contre après traitement sur les entrées je n'arrive plus à le mettre dans le fichier il me donne l'erreur :

Entry '14601' is not a valid Net::LDAP::Entry object

voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
my $chaine = $mesg->entries ;
$chaine =~ s/\n+ //g;
$chaine =~ s/\r+ //g;
 
 Net::LDAP::LDIF->new( $outputFile,"w" )->write( $chaine );

[Katachana]

Il faut que tu analyses ce que tu as dans chaine. Apparemment, la mise en forme n'est plus respecté.

[maxouff]

exactement, $chaine correspond aux tables de hachage des entrées, il faut donc que j'ouvre mon fichier dans une variable pour faire le traitement dessus et ensuite que je recopie cette variable dans le fichier.

Est ce que c'est possible ?
Comment mettre le contenu d'un fichier dans une string pour faire le traitement ? Et ensuite pour remettre le contenu de la variable dans le fichier ?

voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
my $outputFile = "ldiffExtraction.ldif";
 
my $ldapMC = Net::LDAP->new($MC_HOST, port => $MC_PORT, version=>3, onerror=>'die') or die "Error while connecting to the metadirectory";
$ldapMC->bind($MC_USER, password => $MC_PSWD);
 
my $mesg = $ldapMC->search(
                        base   => $MC_BASE,
                        scope  => 'sub',
                        filter => '(!(objectClass=mdsCVLink))'
                      );
 
Net::LDAP::LDIF->new( $outputFile,"w" )->write( $mesg->entries);
 
#open (DESC,$outputFile);
 
#my $chaine = $1;
$chaine =~ s/\n+ //g;
$chaine =~ s/\r+ //g;
 
#print $chaine ;

[Katachana]

Je ne peux pas trop t'en dire plus , je n'ai jamais utilisé cette librairie. Par contre je pense effectivement que tu peux faire des modifications des informations que tu as récupéré.

Lien : Net::LDAP

[thierry.chich]

A propos du premier problème,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chomp($chaine)

, ça marche pas ?