perl et recursivité

Version imprimable

perl et recursivité

bonjour, je suis en train de me battre avec un script perl pour parcourir mon arborescence et faire un traitement sur les images en feuille ( je vous passe le traitement).

Donc voila, premiere branche de l'arborescence c'est ok, mais apres il ne remonte pas et s'arrete au bout de la premiere branche!!!, Je vois pas trop le soucis, est ce que perl est particulier a gerer au niveau recursivite, ou ai-je fais une grosse boulette.

je transmet le script (assez court)

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/usr/bin/perl
 
sub parcours
{
#recup du chemain absolu
$rep_courant=$_[0];
print $rep_courant."\n";
 
 
#ouverture du repertoire, et listage
opendir(DIR,$rep_courant) || die "erreur de ouf";
@liste = readdir(DIR);
$nbelem=scalar(@liste);
$i=0;
$trouve=0;
 
 
#tant qu'on a pas tout parcouru ou qu'on a pas trouve une image
while(($i<$nbelem)and($trouve == 0)){
	$rep="/".$liste[$i];
 
 
	#on creer le nouveau chemin absolu
	$rep_en_traitement=$rep_courant.$rep;
 
	#print "\$rep_courant = $rep_courant\n";
	#print "\$rep = $rep\n";
	#print "\$rep_en_traitement = $rep_en_traitement\n";
 
 
	#si rep "." ou ".." on fait rien
	if(($rep =~ /.*\.$/)){
		print "test2 ** $rep_en_traitement **\n";
	}else{
		#sinon
		#si c'est une image alors je traite toute les images du repertoire
		print" test3\n";
		if($rep =~ /.*jpg$/){
			$trouve=1;
			print "IIIAAAHHH je m'occupe des fichiers images du repertoire $rep_courant\n";
		}
		#si c'est un repertoire je descend d'un cran et je recommence
		if(-d $rep_en_traitement){	
			&parcours($rep_en_traitement);
		}
	}
	$i++;
	print "\$i =$i et \$trouve = $trouve\n";
}
}
 
#je commence a l'endroit du script
$working_dir=`pwd`;
chop($working_dir);
&parcours($working_dir);

j'ajoute ma trace d'execution si ca peut aider...

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
[ecreach@ird-us025-ddag qlook]$ ./script2.pl
/mnt/data/qlook
/. est .
test2 ** /mnt/data/qlook/. **
$i =1 et $trouve = 0
 test3
$i =2 et $trouve = 0
 test3
$i =3 et $trouve = 0
 test3
/mnt/data/qlook/QLOBSSAT
/. est .
test2 ** /mnt/data/qlook/QLOBSSAT/. **
$i =1 et $trouve = 0
 test3
/mnt/data/qlook/QLOBSSAT/SSTTMI1D
/. est .
test2 ** /mnt/data/qlook/QLOBSSAT/SSTTMI1D/. **
$i =1 et $trouve = 0
 test3
/mnt/data/qlook/QLOBSSAT/SSTTMI1D/2005
/. est .
test2 ** /mnt/data/qlook/QLOBSSAT/SSTTMI1D/2005/. **
$i =1 et $trouve = 0
 test3
/mnt/data/qlook/QLOBSSAT/SSTTMI1D/2005/ATT
 test3
IIIAAAHHH je m'occupe des fichiers images du repertoire /mnt/data/qlook/QLOBSSAT/SSTTMI1D/2005/ATT
$i =1 et $trouve = 1
$i =2 et $trouve = 1
$i =3 et $trouve = 1
$i =4 et $trouve = 1
$i =5 et $trouve = 1

Si quelqu'un qui s'y connais un tit peu perl pouvait m'aider ce serait super sympa.

Merci

30/06/2006, 12h22
2Eurocents
L'usage des "pragma" strict et warnings peut grandement aider. 8-)

En l'occurrence, n'ayant pas restreint la portée de tes variables, au moyen d'un my ou d'un local, celles-ci sont globales, ce qui pose un petit problème au concept même de récursivité : les données d'un niveau de récursion sont altérées par le niveau suivant. 8O

L'ajout d'un :
Code:

1 2 use strict; use warnings
en début de script te forcera a déclarer toutes tes variables, et ainsi à en restreindre la portée à la zone utile. Ainsi, plus d'effet de bord, d'une itération à l'autre. ;)
30/06/2006, 12h54
stross

impec

merci beaucoup, je vais essayer ca. et c'est bon ca marche.

Encore une victoire de canard!!!!

et bravo pour tout les modos de developpez.com, car le temps de reaction est vraiment super rapide :applo:

bonjour,

J'ai étudié ton code et j'ai rajouté une variable retour qui renvoie la concaténation de l'arborescence :

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
41
42
 
 
sub parcours
{
	#recup du chemain absolu
	my $rep_courant=$_[0];
	my $test = $_[1];
 
	if($rep_courant ne $path) {
		print $rep_courant.'<br>';
	}
 
	#ouverture du repertoire, et listage
	opendir(DIR,$rep_courant) || die "erreur de ouf";
	my @liste = readdir(DIR);
	my $nbelem=scalar(@liste);
	my $i=0;
	my $trouve=0;
	my $indide=0;
 
	#tant qu'on a pas tout parcouru ou qu'on a pas trouve un fichier XML
	while(($i<$nbelem)and($trouve == 0)){
		$rep="/".$liste[$i];		
		#on creer le nouveau chemin absolu
		$rep_en_traitement=$rep_courant.$rep;	
		#si rep "." ou ".." on fait rien
		if(!($rep =~ /.*\.$/)){	
			if($rep =~ /.xml/){
				$trouve=1;
				print "<span>IIIAAAHHH je m'occupe des fichiers images du repertoire $rep_courant</span><br>";
			}
			#si c'est un repertoire je descend d'un cran et je recommence
			if(-d $rep_en_traitement){
				$test = $rep_en_traitement.' | '.&parcours($rep_en_traitement,$test);
 
			}
		}
		$i++;
 
	}
	return $test;
}

appel par

Code:

1
2
3
 
 
$retour = &parcours($path,'');

voila