Récurrence en perl ?

**Darkroro** · 17/01/2007, 18h10

Voilà, comme l'indique le titre, je cherche un moyen de faire fonctionner systeme récurrent en perl... une fonction qui s'appel elle-même dans certains cas.

Ma première question : peut-on faire de la recurrence en perl ?
Si oui, vous pouvez continuer de lire . . . et peut-être m'aider par la suite . . .
Si non, auriez-vous quelques conseils pour contourner mon problème ? (il faut lire quand même

)

- - - - -

Le problème est que je n'ai aucune idée de comment faire cela, j'ai essayé plusieurs chose mais sans résultat... si quelqu'un a une idée de comment m'y prendre ?

Mon programme se présente de la manière suivante :

- un package Utils.pm contenant ma fonction qui est censée dans certains cas s'appeler elle-même.
- un script Decoup.pl faisant appel à cette fonction.

La fonction CutText n'est pas compliqué en elle même :

- elle découpe un texte en plusieurs morceau selon certains critères
- si l'un des morceaux est trop gros ou ne correspond pas à d'autre critères, je relance la fonction CutText sur ce morceau.

La fonction se lance bien depuis Decoup.pl mais pas depuis "elle-même", j'ai essayé de la lancer des manières suivantes :
- Utils::CutText($morceau_a_recouper); (c'est comme ça que je la lance dans Decoup.pl)
- CutText($morceau_a_recouper);
- &CutText($morceau_a_recouper);

Merci d'avance pour toute vos réponse !

**MarneusCalgarXP** · 17/01/2007, 18h16

Attention à ne pas confondre, on ne parle pas de récurrence, mais de récursivité

La récurrence, c'est le fait d'executer quelque chose plusieurs fois, la récursivité, c'est avoir quelque chose qui fait appel lui-même sur un sous ensemble de données.

En Perl, oui, c'est tout à fait faisable de faire de la récursivité. Peux-tu montrer un peu plus de code de ton module pour qu'on puisse t'aider ?

**MarneusCalgarXP** · 17/01/2007, 18h24

Voici un petit exemple:

Recursive.pm

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
package Recursive;
 
use strict;
use warnings;
 
BEGIN {
        use Exporter;
        our @ISA        = qw(Exporter);
        our @EXPORT     = qw(&countdown);
}
 
sub countdown($)
{
	my ($value) = @_;
	print("il reste $value secondes\n");
	sleep(1);
 
	if ($value == 0) {
		print("fini !\n");
	}
	else {
            # la fonction fait appel à elle-même !
	    &countdown($value - 1);
	}
}
 
1;

callrecursive.pl

Code :

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

1
2
3
4
5
6
use strict;
use warnings;
use Recursive;
 
# on fait appel à la fonction récursive
&countdown(3);

**Darkroro** · 17/01/2007, 18h47

Ah désolé, récursivité...

Bah en code j'ai pas trop le droit de faire sortir des lignes de code de mon taff... m'enfin je peux toujours montrer la structure... du moins je vais essayé...

Code de ma fonction :

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
 
sub CutText
{
      my $i=0;
      my $text=$_[0];
      my @tabA=@$_[1]; #tableau qui contient les morceaux de type A
      my @tabB=@$_[2]; #tableau qui contient les morceaux de type B
 
      ## Là j'ai le code de traitement que je ne peux pas mettre
      ## Il me donne deux tableaux temporaires @A et @B
      my $longA = @A;
      my $longB = @B;
 
      # Vérification pour A
      for($i=0;$i<$longA;$i++)
      {
           if(...) #condition de stockage ou retraitement du morceau de type A
           {
                 push @tabA,$A[$i];
           }
           else
           {
                 CutText($A[$i],\@tabA,\@tabB);
           }
      }
 
      ## pour B c'est pareil
 
      return(\@tabA,\@tabB);
}

Mes conditions sont faites de manière à éviter les boucles de récursivité infinie... (enfin j'espère... j'ai pas encore pu les tester)

Quand je lance mon programme il me dit :

Undefined subroutine &Utils::CutText called at Utils.pm line 73.

**MarneusCalgarXP** · 17/01/2007, 18h50

Ce qui m'interressait plus, c'était l'entête du module en réalité. Je pense que le problème vient du fait que tu n'as pas déclaré la méthode CutText dans la liste des méthodes exportées. Inspire toi de l'exemple que j'ai posté juste avant, ca devrait t'aider

**Darkroro** · 17/01/2007, 18h52

Ah mince j'étais en train de tapper, j'ai pas vu ton message...
Si je comprends bien, c'est un compte à rebours...
mais je comprends pas trop comment ça fonctionne... je connais perl depuis pas longtemp, va falloir que je bosse un peu plus...

**MarneusCalgarXP** · 17/01/2007, 18h56

En gros, il faut utiliser en premier lieu le package Exporter.
La variable ISA déclare de quel(s) package(s) on "hérite", un peu comme en objet. Ici, on veut hériter des propriétés du module Exporter.
La variable EXPORT quand à elle définit les variables et subs à exporter, par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
BEGIN {
        # module à utiliser pour pouvoir exporter des données 
        use Exporter;
        # liste des packages dont on hérite
        our @ISA        = qw(Exporter);
        # liste des variables et méthodes à exporter
        our @EXPORT     = qw( &CutText $toto @montableau1 @montableau2 $abc %mahash );
}

Et c'est suffisant pour régler ton problème

**MarneusCalgarXP** · 17/01/2007, 18h59

Si tu veux plus de détails sur l'écriture de modules, voir ici:
page perlmod, traduite par enstimac (format PDF)

C'est instructif, mais c'est un poil rébarbatif