Discussion :

[Jjeje007]

Salut a tous,

Je cherche à tester si un repertoire est vide.
Je sais faire ça en bash :

Code :

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

1
2
3
4
if [ `ls /repertoire/cible | wc -l` -eq 0 ];
    then
blabla
fi

Mais en en perl, j'ai cherché et j'ai pas trouvé (ou j'ai mal cherché aussi )

Jjeje007

[crochepatte]

En effet, il me semble que tu as mal cherché...

http://perl.developpez.com/faq/?page...nC1#sectionC16

Cela devrai t'aider a résoudre ton probleme...

[Jedai]

Complétons avec une façon idiomatique de le faire :

Code :

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

1
2
3
4
5
6
7
opendir my($dir), $path;
if( my @files = readdir $dir ) {
  # le répertoire $path n'est pas vide
} else {
  # le répertoire est vide
}
closedir $dir;

ou :

Code :

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

1
2
3
4
5
if( my @files = glob("$path/*") ) {
  # le répertoire $path n'est pas vide
} else {
  # le répertoire est vide
}

--
Jedaï

[Jjeje007]

Ok merci de ces précisions

Jjeje007