Bonjour, je suis sur le développement d'un webftp en perl (débutant). Le problème est que je me sers de la fonction readdir() qui conscidère mes répertoires comme des fichiers. Voici l'xtrait concerné:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
opendir(DIR,$home.$category);
		my @liste=readdir(DIR);
		foreach $folder(@liste)
		{
			if(-d $folder && $folder ne "." && $folder ne "..")
			{
				print "$folder<br />";
			}
		}
Il se trouve que sans la condition "-d $folder" mes répertoires sont bien visibles. Comment faire?