Discussion :

[Sébastien]

Je fais une fonction récursive qui me permet de rechercher les sous-répertoires d'un répertoire.

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
#Ouvrerture du répertoire
		opendir($DIR, "$_[0]") || Error('ouverture', 'repertoire');
 
		#Lecture du répertoire
		while($Fichier = readdir($DIR))
		{
			#S'il ne s'agit pas du répertoire courant et du répertoire parent
			if(($Fichier ne ".") && ($Fichier ne ".."))
			{
				#Si c'est un répertoire
				if(-d $Fichier)
				{	
					#Crée un fichier tar du répertoire à archiver.
					OuvrirRepertoire("$_[0]/$Fichier", "$_[1]-$Fichier", $_[2] - 1);
				}
			}
		}
 
		#Fermeture du répertoire
		closedir($DIR) || Error('fermeture', "repertoire $_[0]");

mon problème est que lorsque je vérifie si les fichiers d'un répertoire avec -d $Fichier, il y a des répertoires qui ne sont pas détectés.
y'aurait pas une meilleur fonction que -d pour faire ce test?

[laffreuxthomas]

j'ai quasimment le même code et jamais eu de problème.
Même si je ne vois pas de différence, je te donne 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
 
sub anaDirectorate {
  my($namedir) = @_;
  local $_;
  local *DIR;
  opendir(DIR, $namedir) || die "Cannot opendir $namedir: $!";
  foreach (readdir(DIR)) {
    next if ($_ eq "." || $_ eq "..");
    $_ = "$namedir\\$_";
    if (-d) {
      anaDirectorate($_);
    } else {
      anaFile($_);
    }
  }
  closedir DIR || die "Cannot closedir $namedir: $!";
}

sinon quelle est ton erreur?

Thomas

[Sébastien]

J'appelle ma fonction une première fois, elle lit les fichiers du répertoire, quand elle voit un répertoire, elle se rappelle dans le if.
La fonction ouvre le répertoire trouvé qui lui est passé en paramètre,
elle lit les fichiers du répertoire mais le if ne trouve pas de répertoires même s'il y en a.

Voici la trace:
ouvre /home
lit le fichier test.txt
n'est pas un répertoire
boucle

lit le fichier Usager
Est un répertoire
appelle la fonction OuvrirRepertoire (/home/Usager)

Ouvre /home/Usager
lit le fichier Public
n'est pas un répertoire #Pourtant c'en est un
boucle

Ferme le répertoire
ferme le répertoire

[laffreuxthomas]

actuellement tu as :

-d "Public"

A mon avis il faut que dans $fichier il y ait le nom completé :

-d "/home/Usager/Public"

Sinon teste mon code voir si il marche sur ton système.

Thomas

[Sébastien]

Merci bien!
c'était bien parce qu'il manquait le Path au fichier