/*******************************************************************
*
* GetDirContent
* Matthieu Belge, 11/02/2001 00:02
* 
* Renvoie la liste des fichiers et sous-répertoires d'un répertoire
*
* @param dir Répertoire à scanner
* @return Un tableau contenant les fichier et sous-répertoires
*
* @see 
*
*******************************************************************/

sub GetDirContent {
 my ($dir) = @_;

 if (! -e $dir ) {
  print "Répertoire inconnu ($dir).";
  return undef;
 }

 if (! -d $dir ) {
  print "$dir n'est pas un répertoire.";
  return undef;
 }

 if (! opendir( DIR, $dir) ) {
  print "Impossible d'ouvrir le répertoire $dir : $!.";
  return undef;
 }

 my @files = grep !/(?:^\.$)|(?:^\.\.$)/, readdir DIR;
 closedir DIR;

 return \@files;
}