File::Find wanted et prepocess

Version imprimable

Bonjour à tous,

Jusqu'à présent pour mon script de sauvegarde, j'utilisais ce code afin d'obtenir l'arborescence à sauvegarder.

Code:

find (sub {push @all_files,$File::Find::name}, ".");

Le problème étant que je ne prends pas en compte l'exclusion de fichiers.
J'ai donc poussé les portes du module find (merci à la commande perldoc File::Find ^^).

J'ai donc commencer ce bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 #!/usr/bin/perl use strict; use warnings; # use File::Find; # # Déclaration des variables # my $dir_http = "/home/cassis2k/http"; my @excluded_dir = ("rep1", "rep2", "rep3"); # # Déclaration des fonctions # sub AllFiles { # # Fontion pour le WANTED # my @all_files; push (@all_files, $File::Find::name); return @all_files; } # sub Filter { # # Fonction pour le PREPORCESS pour me module File::find # } ###### Début du script ##### # my @all_files = find({preprocess => \&Filter, wanted => \&AllFiles}, $dir_http); print "@all_files\n"; my $nb_of_files = scalar(@all_files); print "$nb_of_files\n"; # ###### Fin du script #####
Ma première question se pose suite au résultat :
Code:

1 2 1
Mon code me semble correcte pourtant la liste semble vide :roll:

Ma seconde question concerne une info que j'ai lu je ne sais plus trop où. Lorsqu'on utilise File::Find avec use warning, il peut y avoir des effets indésirables. Pour parer ces effets, il suffit de rajout un no warning File::Find. Que pensez vous de l'utilisation de no warning ? Est elle à proscrire ?

Merci d'avance aux personnes qui s'arrêteront pour m'aider :mrgreen:

08/07/2009, 09h18
Philou67430
Il est normal que ton code ne remplisse pas le tableau :
- la fonction preprocess doit retourner une liste de chaine à partir d'une liste de chaine fournie en paramètre. Si tu veux qu'elle ne filtre rien dans un premier temps, il faudrait alors l'écrire ainsi :
Code:

1 2 3 4 5 6 7 sub Filter { # # Fonction pour le PREPORCESS pour me module File::find # return @_; }
- la fonction wanted doit remplir ton tableau. Il est inutile qu'elle retourne quoi que ce soit.
- pour finir, find ne retourne pas la liste des fichiers sélectionnés (elle se trouve dans le tableau rempli par wanted). Il ne faut donc pas affecter le retour de find à @all_files.

Merci Philou67430.

Pour la fonction Allfiles (argument de WANTED), je ne comprends pas comment je peux récupérer ma liste @all_files en dehors de la fonction sans utiliser de return.

Pour l'instant je retire l'argument PREPOCESS afin de procéder étape par étape.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl
use strict;
use warnings;
#
use File::Find;
#
# Déclaration des variables
#
my $dir_http = "/home/cassis2k/http";
my @excluded_dir = ("rep1", "rep2", "rep3");
#
# Déclaration des fonctions
#
sub AllFiles
{
        #
        # Fontion pour WANTED, module File::find
        #
        my @all_files;
        push (@all_files, $File::Find::name);
}
#
sub Filter
{
        #
        # Fonction pour PREPORCESS, module File::find
        #
        return @_;
}
###### Début du script #####
#
my @all_files = ();
find({wanted => \&AllFiles}, $dir_http);
print "@all_files\n";
 
my $nb_of_files = scalar(@all_files);
print "$nb_of_files\n";
 
#
###### Fin du script #####

@all_files semble être un tableau vide :(

08/07/2009, 10h54
Philou67430

Tu définis @all_files localement dans AllFiles(), donc il ne sera pas visible à la sortie de la fonction. Supprime cette déclaration my dans Allfiles, et ton tableau déclaré avant l'appel à find sera utilisé, et ton tableau ne sera plus vide.

PS : pour inclure du code, utilise la balise CODE et non QUOTE (icône http://www.developpez.net/forums/images/editor/code.gif).
08/07/2009, 11h08
cassis2k

Citation:

Envoyé par Philou67430

...
PS : pour inclure du code, utilise la balise CODE et non QUOTE (icône http://www.developpez.net/forums/images/editor/code.gif).

C'est corrigé. Je teste tout de suite :)
08/07/2009, 11h15
cassis2k

Citation:

Envoyé par Philou67430

Tu définis @all_files localement dans AllFiles(), donc il ne sera pas visible à la sortie de la fonction. Supprime cette déclaration my dans Allfiles, et ton tableau déclaré avant l'appel à find sera utilisé, et ton tableau ne sera plus vide.

...

Le fait d'utiliser use strict; m'empêche de déclarer mes variables sans my..

Code:

Global symbol "@all_files" requires explicit package name at ./FilteredFiles.pl line 19.

C'est pour ça que le return était présent au début.
:aie:
08/07/2009, 12h11
Philou67430

Déclare ta variable my @all_files avant ta fonction Allfiles, et elle sera définie avec la bonne portée.
Sinon, tu peux aussi la définir our.
08/07/2009, 15h37
cassis2k

Merci ça fonctionne, en la déclarant tout en haut, j'en fait un variable globale en fait ?
Je passe donc à la fonction Filter().
08/07/2009, 15h55
Philou67430

Le mot global à de multiples sens, je préfèrerais donc dire qu'il a une portée globale au script, mais qu'il n'est pas exportable.
08/07/2009, 16h44
cassis2k

Philou67430, merci beaucoup pour ces informations. J'attaque la suite :mrgreen: