Discussion :

[Konrad Florczak]

Bonjour j'ai pas mal de dossier à tester avant l'initatialisation du code et j'aimerais savoir si il n'y a pas moyen d'optimiser tous ces unless :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    unless (-e "$root_dir") 
	{
	`mkdir $root_dir`;
	print "$root_dir folder created ";
	}
    unless (-e "$data_dir") 
	{
	`mkdir $data_dir`;
	print "$data_dir folder created ";
	}
	unless (-e "$processed_dir") 
	{
	`mkdir $processed_dir`;
	print "$processed_dir folder created ";

Merci

[2Eurocents]

J'ai bien une optimisation éventuelle :

Code :

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

1
2
3
4
5
6
7
8
9
 
    @a_valider=($root_dir, $data_dir, $processed_dir) ;
 
    @a_creer=grep { not -e $_ } @a_valider;
    foreach my $dir (@a_creer)
	{
	    mkdir $dir;
            print "$dir folder created ";
        }

Moi, j'aime bien les fonctions grep ou map ...

Pour l'explication :

• On stocke tous les répertoires à vérifier dans une liste.
• On sélectionne dans cette liste tous les répertoires qui n'existent pas. On stocke cette sélection dans une nouvelle liste.
• Pour tous les éléments de cette nouvelle liste, on crée le répertoire et on loggue un message de création.

Dit comme ça, ça paraît simple, non ?

[MarneusCalgarXP]

Je suis étonné que tu n'aies pas utilisé map ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my @a_valider=($root_dir, $data_dir, $processed_dir) ;
my @a_creer=grep { not -e $_ } @a_valider;
map { &createDir($_) } @a_creer;
 
sub createDir($)
{
    my ($dir) = @_;
    mkdir $dir;
    print "$dir folder created ";
}

[2Eurocents]

Je suis étonné que tu n'aies pas utilisé map ^^

La raison en est toute simple (mais je me demande si je ne vais pas finir par rédiger un article sur grep, map et foreach) : map a un double intérêt qui est de traiter tous les éléments, d'une part, et d'autre part de retourner le résultat de ce traitement sous forme de liste. Foreach, à contrario, parcourt tout, mais ne retourne rien.

Ayant supposé (à tort, certainement dans une bonne pratique) que le résultat du mkdir et du print était négligeable, je les ai traité à coup de foreach (lazyness programming ...).

Utiliser la syntaxe avec map a un ENORME intérêt si la fonction &create_dir retourne une valeur. Cela permet alors de conserver une liste de ces valeurs.

Bien ouéj.

[Konrad Florczak]

Un grand merci pour la qualité de vos réponses. C'est vraiment rare de voir autant de précisions et d'explications.
Vite que mon projet se termine pour que je m'y mette vraiment !