Je savais que ce serait de ne pas travailler en raison de problème de "refaire". Existe-t-il un moyen de résoudre ce problème? Merci beaucoup!

my @n = (10..100);
my $i;
my $j = 0;
my $k;

LINE1: for ($i; $i < 10; $i++) {
   $k = $n[int rand @n];
   $j += $k;
}

if ( ((550 - $j) < 10) || ((550 - $j) > 100) ) {
   redo LINE1; 
}

Peut-être que vous pourriez élaborer un peu sur ce que cela est censé faire, et comment il ne parvient pas à cela.

Le plus gros problème est que en dehors de refaire une boucle. Il n'y a rien à refaire. Peut-être que c'est ce que vous voulez faire (avec des commandes d'impression pour le suivi des processus ajoutée):

my @n = (10..100);
my $i;
my $j;

LINE1: for ($i; $i < 10; $i++) {
   $i = $n[int rand @n];
   $j += $i;
   if ( ((5500 - $j) < 10) || ((5500 - $j) > 100) ) {
      print qq{Inside "if" condition $j\n};
      redo LINE1; 
   }
   print $j,"\n"; 
}

Désolé je dois le rendre plus clair. Merci à l'époque et KevinADC de l'aide.

La question que j'ai essayé de résoudre est égale à:
Randomly diviser un 5500 pieds de corde en 10 morceaux, et la longueur de chaque pièce doit être (10 .. 100) pieds.

Est-ce l'école / classe / cours?

Non, il ne l'est pas. Mais j'ai finalement comprendre que je peux utiliser "goto" au lieu de "refaire" tout à l'heure.
Merci pour l'aide!