Discussion :

[mithrendil]

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?

[Jedai]

Je ne comprend pas ton problème... Il est normal que readdir() renvoie tout le contenu du répertoire passé en argument, et il suffit de filtrer avec -d pour ne récupérer que les répertoires alors où est la question ?

--
Jedaï

[mithrendil]

Mon problème est bien là! Les répertoires autres que "." & ".." sont filtrés par "-d" et ne sont pas affichés.

[Jedai]

Ok.. Si tu m'avais demandé "comment n'afficher que mes répertoires ?" j'aurais certainement compris plus vite, c'est une erreur classique :

Code :

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

1
2
3
4
5
6
7
opendir(DIR,$home.$category);
 
my @files = readdir(DIR);
foreach my $folder( @files ) {
  next if -d "$home$category/$folder" or $folder eq '.' or $folder eq '..';
  print "$folder<br />";
}

Le problème est que -d "chemin" teste le fichier dont tu lui donnes le chemin, il faut donc lui donner le chemin complet du fichier, pas seulement son nom (sauf lorsque le fichier est dans le répertoire courant).

--
Jedaï

[mithrendil]

Ok, merci et désolé pour la confusion