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 ...