[PERL] Comment creer dossier s il existe pas!

Résolu
madmselle -  
 -_- -
Bonjour,

Je suis débutante en Perl.

J'ai réussis a ouvrir le dossier (s'il existe) pour me lister les fichiers qu'il y a dedans!! Seulement lorsque le dossier n'existe pas, cela me plante le programme.
J'aimerai donc si le dossier demandé n'existe pas, le créer de façon a ce que mon programme continue a tourner!!

Voici mon morceau de code qui me permet de lister les fichiers qui sont dans le dossier: 

opendir (DIR, $sDossier) || die("Impossible d'ouvrir $sDossier...");
while (($file = readdir (DIR))) 
{
	  print ("$file \n");
}
closedir (DIR);


3 réponses

  1.
    jisisv Messages postés 3678 Statut Modérateur 936
     
    Cfr infra.
    Gates gave ^H sold you the windows.
    GNU gave us the whole house.(Alexandrin)
    0
  2. madmselle
     
    Merci j ai trouve la réponse
    0
    1. -_-
       
      Trop génial pour toi ... la prchn fois dit nous ce que tu as trouvé
      0
  3. jisisv Messages postés 3678 Statut Modérateur 936
     
    Effectue une variation sur le code PERL: 
    johand@osiris: ~/src/CCM/perl $ ls -ld mydir
ls: impossible d'accéder à mydir: Aucun fichier ou dossier de ce type
johand@osiris: ~/src/CCM/perl $ ./testdir.pl ; ls -ld mydir
drwxr-xr-x 2 johand johand 4096 oct 19 12:22 mydir
johand@osiris: ~/src/CCM/perl $ cat testdir.pl
#!/usr/bin/perl -w
$mydir="mydir";
mkdir $mydir;
(-e $mydir)  or  mkdir $mydir;

    -1