Chercher certains fichiers dans différents répertoires

**Hoopsy** · 22/01/2009, 00h31

Bonsoir tout le monde,

J'explique mon problème :
J'ai plusieurs fichiers dans différents répertoires, j'aimerais rassembler l'ensemble de ces fichiers dans un seul car ils possèdent les mêmes informations.

En fait, l'arborescence est + ou - comme suit:

Code :

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
 
OMC
      BSC1
           BTS1.1
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt
           BTS1.2
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt
      BSC2
           BTS2.1
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt
           BTS2.2
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt
           BTS2.3
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt
      BSC3
           BTS3.3
                22012009
                     fichier1.txt
                     fichier2.txt
                     .
                     .
                     .
                     fichier24.txt

Donc, je veux récupérer les 24 fichiers de chaque BTS dans un seul, je rajouterai bien sur dans les fichiers une colonne pour différencier les BTS.

J'ai un problème pour connaitre le chemin du fichier que je pointe et puis un résultat NUL

. Mon problème pour l'instant est comment mettre tous ces fichiers dans un seul et sachant qu'ils sont éparpillés dans différents dossiers, voici ce que j'ai essayé de faire :

Code :

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

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
 
#!/usr/ bin/perl
 
opendir (DIR,".") || die ('Erreur Open Dir');         #mon script est dans le répretoire OMC
@fic = readdir(DIR);
foreach (@fic)
{
  $c=$_;
 
  if (-d $c)
    {
 
      chdir ("BSC1/$c");                       #ici, c'est zéro pointé, je n'arrive pas à connaitre le chemin du fichier pointé
      print("$c\n"); 
 
    }
}
 
opendir (DIR,".") || die ('Erreur Open Dir');
@fic1 = readdir(DIR);
foreach (@fic1)
{
 
  $c1=$_;
 
  if (-d $c1)
    {
      print("$c1\n");
 
 
 
    }
}

Résultat des courses :

Code :

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

1
2
3
4
5
6
7
8
 
.
..
.
..
BTS1.1
BTS1.2
BTS1.3

Je me rends bien compte que ce n'est pas la bonne solution, c'est pour cette raison que je demande votre aide.

Merci de m'aider.

Salutations.

**Jasmine80** · 22/01/2009, 09h30

Dans le dossier OMC as-tu d'autres dossiers que les BTS que tu ne devrais pas récupérer? Dans les dossiers BTS n'as-tu que le dossier 22012009?

Autrement dit, dois-tu récupérer tous les fichiers contenus dans le dossier OMC et ses sous dossiers ou y a-t'il un tri à effectuer?

**Jasmine80** · 22/01/2009, 09h58

Pour ce qui est de ton script

Tu devrais utiliser les pragma strict et warnings

Pour :

Code :

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

1
2
opendir (DIR,".") || die ('Erreur Open Dir');         #mon script est dans le répretoire OMC
@fic = readdir(DIR);

Tu peux faire :

Code :

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

1
2
3
opendir DIR,"." || die ('Erreur Open Dir');         
my @dir1 = grep{$_ !~ /^\.\.?$/}readdir(DIR);
closedir DIR;

... n'oublie pas le closedir, c'est plus propre

Pour :

Code :

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

1
2
3
foreach (@fic)
{
  $c=$_;

Fais plutôt :

Code :

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

foreach my $c (@dir1){

Au final si tu veux parcourir palier par palier

Code :

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

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
#!/usr/ bin/perl
 
use strict;
use warnings;
 
 
opendir DIR,"." || die ('Erreur Open Dir');         
my @dir1 = grep{$_ !~ /^\.\.?$/}readdir(DIR);
closedir DIR;
 
 
foreach my $c (@dir1)		# BMC1, BMC2 ....
{	
	if ( (-d $c) && ($c =~ /BSC/) )
	{
		opendir DIR, "$c/22012009" || die ('Erreur Open Dir');         #mon script est dans le répretoire OMC
		my @dir2 = grep{$_ !~ /^\.\.?$/}readdir(DIR);
		closedir DIR;	
 
		foreach my $d (@dir2)	# 22012009
		{	
			if (-e $d)
			{
				print $d."\n";
			}
		}
	}
}

... voila comment tu aurais pu te débloquer

... mais il y a beaucoup plus simple. Tu peux utiliser la fonction récursive que Djibril m'a passée.

Code :

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

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
41
42
43
44
45
46
47
48
49
50
#!/usr/ bin/perl
 
use strict;
use warnings;
 
 
 
sub lister_repertoires_recursif {
  unless( scalar(@_) == 1) {
    my $usage = <<'FIN_USAGE';
    Usage: lister_repertoires_recursif($repertoire);
FIN_USAGE
    croak($usage);
   }
 
  my ($repertoire) = @_;
    opendir (REP, $repertoire) or
      die "impossible d'ouvrir le repertoire $repertoire\n";
    # récupérations de tous sauf . et ..
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
    my @repertoires = ();
    foreach my $nom (@file_rep) {
        # si $repertoire/$nom est un répertoire
        if ( -d "$repertoire/$nom") {
          push (@repertoires, "$repertoire/$nom");
          # on appel la fonction sur l'ensemble des dossiers contenus dans @repertoires
          push (@repertoires, &lister_repertoires_recursif("$repertoire/$nom"));
        }
    }
    return @repertoires;
}
 
 
 
my @repertoires = lister_repertoires_recursif('.'); 
 
foreach my $path (@repertoires){
 
	if ($path =~ m{/BSC\d+/BTS\d+\.\d+/22012009}){
		opendir DIR, $path || die ('Erreur Open Dir');         #mon script est dans le répretoire OMC
		my @dir = grep{$_ !~ /^\.\.?$/}readdir(DIR);
		closedir DIR;	
 
		foreach my $file (@dir){
			print $file."\n";
			# par exemple module : File::Copy 		fonction : move $file
		}
	}	
}