Voila j'ai le code suivant (c'est pas encore une version finale alors ya p-e 2-3 trucs pas très bo encore)
 

 
mon problème, c'est que mes 2 print sont différents, alors qu'ils devraient être identique. La référence de $base_object_type semble changer aussitot que j'entre dans mon foreach...
 

 
je comprends vraiment pas
 
 
merci

je sais pas trop pourkoi ca deconne, mais je trouve bizarre ta notation de sub avec des ::
 
en gros il va considerer que la sub parse_ini fait partie d'un package ini...
c'est chelou, et c'est peut etre de la que vient ton etrange probleme (syntaxe etrange => probleme etrange? c'est le "do what I mean"!)

jpeux bien essayer, jai fait ca à quelques reprise et j'ai eu aucun probleme (mais sans récursivité par exemple)

ben moi jsui nv donc deja bonjour a tous.
Voila mon probleme c ke mon maitre de stage ma demande de resoudre un probleme et de me servir de la recursivite.
Je ne sai pas ce ke c donc jai fait des recherches sur google et je n'ai pas trouver ce ke je chercher j'ai juste trouver des fonctions pour essayer de comprendre la chose main en vain.
voila le source a modifier:
#boucle de changement de 4 par 4
 $i = 0;
 $index = 0;
 $j = 0;
 while ($index < $vector_n)
 { $vector[$index] .= $seq[$j];
 }
 continue
 { $index = $index+1;
 
## essayer de transformer en f(i)
  $i = $i + 1;
  $j = int($i/$seq_n);
  if ($j == $seq_n) { $i = 0; $j = 0;}
 }
il faut que le j disparaise et kil ni ai plus que le i
j'ai essayer cela mais sa marche po :
 continue
 { $index = $index+1;
  $i = &calci_4($index , $seq_n , $i);  
 }
#################################################################################
#                    #
#              1.00    0206504  nico #
#                    #
# calci_4($index , $seq_n , $i)             #
#                    #
#it is a procedure in order to reduce the row of the code and this procedure  #
#is use in the boucle while to calculate the number of combinaison    #
#################################################################################
sub calci_4(i){
 my $index = 0;
 my $i = 0;
 if ($i<3)
 {  
  $i = int($index/$seq_n);
  calci_4( $i + 1);
  if ($i == $seq_n) { $i = 0; }  
 }
  return($i);
}
je sais je passe pour une quiche mai je sui en premiere anne de bts iris et je fais du c++ et la mon stage est en perl et je connais pas la recursiviter donc je galere.
merci d'avance de votre reponse ki meclairera je lespere

svp jai besoin d'aide que quelqu'un prene le temp d'o moin menvoyer une reponse.

1: post dans ton propre topic
 
2: mets ton code dans les balises code du forum, c'est pas lisible sinon

oki je vai le faire  
merci