Extrait un rapport d'un fichier ldif

#!/usr/bin/perl -w
# remd: extrait un rapport d'un fichier .ldif - alain Adelmar 2 mars 2001.
$x="x"x15;

LABEL_TOP:print"Entrez le nom du fichier à traiter:\n";
chomp($file=<STDIN>);
$u=0;# initialisation de boucle spéciale pour les groupes de noms

if(-e$file){
$df=localtime(-C$file);
print"\n$x\nRapport du contenu de $file $df\n";
}
else{
print"Erreur, le fichier $file n\'existe pas\n";
gotoLABEL_TOP;
}
openF,"$file"ordie"Ouverture de $file impossible $!";
@contenu=<F>;
closeFordie"Fermeture de $file impossible $!";

@p=split(/^dn/,@contenu);
 
 
 

foreach$line(@p){
$i++;
if($line=~/^dn/){
($nom,$mail)=split(/,/,$line);
($kk,$nom)=split(/=/,$nom);
($kk,$mail)=split(/=/,$mail);
}
elsif($line=~/^mail:/){
&nettoyage($line);
$mail2="$mm";
}
elsif($line=~/^sn:/){
&nettoyage($line);
$sn="$mm";
}
elsif($line=~/^telephonenumber:/){
&nettoyage($line);
$tel="$mm";
}
elsif($line=~/^o:/){
&nettoyage($line);
$org="$mm";
}
elsif($line=~/^locality:/){
&nettoyage($line);
$loc="$mm";
}
elsif($line=~/^postalcode:/){
&nettoyage($line);
$pc_ad="$mm";
}
elsif($line=~/^streetaddress:/){
&nettoyage($line,$m);
$st_ad="$mm";
}
elsif($line=~/^homephone/){
&nettoyage($line);
$h_tel="$mm";
}
elsif($line=~/^title:/){
&nettoyage($line);
$title="$mm";
}
elsif($line=~/^st:/){
&nettoyage($line);
$reg_ad="$mm";
}
}
 
 

subnettoyage($line,$mm){
my($line)=@_;

($kk,$mm)=split(/:/,$line);
$mm=~s/^\s/$1/;
chomp$mm;
return$mm;
}