Discussion :

[kazh75]

Bonjour,

Je voudrais limiter le nombre de fichiers lus par la fonction readdir dans le code suivant:

Code :

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

1
2
3
opendir DIR,$input or die "ERROR: ",$input," : ",$!;
@files = readdir DIR;
close DIR;

Une idée ?

Merci par avance de vos conseils.

[Woufeil]

Bonjour,

Vouloir limiter, pourquoi pas, mais sur quels critères ? Si tu ne veuxlire que les 20 premierès entrée du répertoires ou t'arrêter dès que tu as trouvé tel répertoire par exemple, c'est possible en lisant répertoitr par répertoire :
opendir DIR,$input or die "ERROR: ",$input," : ",$!;

Code :

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

1
2
3
4
while (my $fic = readdir DIR)
{
    # $fic contiendra tour à tour chaque entrée de DIR
}

Cette solution te permettra de faire ce que je t'ai dit, ou même de tout lire sans mettre tout le contenu de DIR dans la RAM (ce que fais ton code).
Est ce que cela te convient ?

[kazh75]

Bonjour,
Désolé pour le manque de précisions.
En détail, le script va devoir traiter tous les fichiers d'un répertoire.
Ce répertoire va avoir plusieurs dizaines de milliers de fichiers.
Pour éviter tout problème, je voudrais limiter chaque passe de readdir aux mille premiers fichiers.
En pratique:

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
sub inputdir {
	print "INFO: Reading input directory...\n";
	opendir DIR,$input or die "ERROR: ",$input," : ",$!;
	@files = readdir DIR;
	close DIR;
 
	foreach (@files) {
		next if ($_ =~ /^\.\.?$/);			# evite . et ..
		next if ($_ =~ /\.tmp/);
		if (-f $_) {						# si l'object est bien un fichier
			push(@filetomove, "$input/$_,$output[$i]/$_");
			$i ++;
			if ($i == (scalar(@output))) {
				$i = 0;
			}
		}
	}
}
sub movefiles {
	my $length = @filetomove;
	while ($length > 0) {
		my $line = shift(@filetomove);
		($in, $out) = split(/,/,$line);
		print "INFO: Move From: ",$in," To: ",$out,"\n";
		rename("$in","$out") or warn "ERROR: ",$!,"\n";
		$length = $length -1;
	}
}

[Jedai]

Il n'est pas possible de lire un nombre précis de nom de fichier d'un répertoire avec readdir, mais a priori tu n'as pas besoin de lire plusieurs nom de fichier d'un coup : ton traitement se fait fichier par fichier, il te suffit donc de les lire un par un :

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
 
sub inputdir {
  print "INFO: Reading input directory...\n";
  # ici je simplifie ton die
  opendir my($dir), $input or die "ERROR: $input : $!"; 
 
  my $i = 0;
  while(my $file = readdir $dir){
 
    next if ($file =~ /^\.\.?$/); # evite . et ..
    next if ($file =~ /\.tmp/); # evite les fichiers temporaires
 
    if (-f $_) { # si l'object est bien un fichier
 
      # as-tu vraiment besoin de séparer les phases de lecture et de déplacement ?
      my $in = "$input/$file";
      my $out = "$output[$i]/$file";
      print "INFO: Move From: $in To: $out\n";
      rename("$in","$out") or warn "ERROR: ",$!,"\n";
 
      # équivalent à ton if ...
      $i = ($i + 1) % @output;
    }
  }
 
  closedir $dir;
}

D'après ce que tu demandes (lire par lot arbitraire de 1000) j'ai eu l'impression que les phases de lecture et de déplacement sont indépendantes, je les ai donc regroupées.

--
Jedaï