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

Question

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 
");
}
closedir (DIR);



Configuration: Windows XP / Firefox 7.0.1

jisisv · Answer

Cfr infra.
Gates gave ^H  sold  you the windows. 
GNU gave us the whole house.(Alexandrin)

jisisv · Answer

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;

madmselle · Answer

Merci j ai trouve la réponse

[PERL] Comment creer dossier s il existe pas!

3 réponses

Discussions similaires