Jeg vidste det ikke ville arbejde på grund af problemet med "Redo". Er der en måde at rette dette? Thanks a lot!

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; 
}

Måske du kunne uddybe lidt om, hvad det er meningen at gøre, og hvordan det ikke lykkes at gennemføre det.

Det største problem er, at genindstille uden en sløjfe. Der er intet at omgøre. Måske dette er hvad du mener, at gøre (med print kommandoer tilføjes til sporing proces):

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"; 
}

Beklager, at jeg skulle gøre dette mere klart. Takket være æra og KevinADC om hjælp.

Det spørgsmål, jeg har forsøgt at løse svarer til:
Tilfældigt inddele en 5500 meter reb i 10 stykker, og længden af hvert stykke bør (10 .. 100) fødder.

Er denne skole / klasse / naturligvis arbejde?

Nej, det er det ikke. Men jeg endelig finde ud af, jeg kan bruge "goto" i stedet for "Redo" lige nu.
Tak for hjælpen!