[PERL] Comment creer dossier s il existe pas! [Résolu/Fermé]

Signaler
-
 -_- -
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

Messages postés
3645
Date d'inscription
dimanche 18 mars 2001
Statut
Modérateur
Dernière intervention
15 janvier 2017
937
Cfr infra.
Gates gave ^H sold you the windows.
GNU gave us the whole house.(Alexandrin)
Merci j ai trouve la réponse
Trop génial pour toi ... la prchn fois dit nous ce que tu as trouvé
Messages postés
3645
Date d'inscription
dimanche 18 mars 2001
Statut
Modérateur
Dernière intervention
15 janvier 2017
937
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;