Discussion :

[ebossss]

bonjour je suis debutant en perl et j'ai ecris un script simple qui devrait me permettre de lister tous les fichiers qui sont des repertoires dans un repertoire donne en entree
voici le script :

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl -w
 
opendir DIR, $ARGV[0];
foreach (sort readdir DIR) {
    print "$_ : repertoire\n" if -d $_;
}
closedir DIR;

Malheureusement il ne me sort que les repertoires . et .. a chaque fois
si qqun pouvait m'aider ...

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl -w
 
opendir DIR, $ARGV[0];
 
foreach (sort readdir DIR) {
  print "$_ : repertoire\n" if -d "$ARGV[0]/$_";
}
closedir DIR;

--
Jedaï

[ebossss]

hehe
chuis tro bete
thx =)

[GLDavid]

Bonjour et bienvenue à toi

Si tu as trouvé la solutio nqu'il te fallait, n'oublies pas de mettre ton thread en résolu en cliquant sur le bouton en bas à gauche de ce même fil
Merci d'avance.

@++

[djibril]

en regardant dans la FAQ et les snippet, t'aurais trouvé la solution