Komme ud af en while (<>) { ... }

brug kommandoen "last" til at bryde helt ud af dit loop, på samme måde som du ville bruge "next" til at bryde den igangværende iteration af loopet.

while (<>)
{
    $request = $request."/".sprintf("%1x", $DocumentID);
    print($request."\n");
    $response = do_request($request);
    if ($response =~ m/^5/) {
        last;
    } else {
        if ($response !~ m/404/) { # If the response is a 404 then the doc has been deleted
            push(@RESULTS, "+ $response for $request");
        } else {
            push(@RESULTS, "The file: $request has been deleted");
        }
    }
    $DocumentID += 4;
}

if ($response =~ m/^5/) {
    last;  # Vil gerne ud af denne while løkke!
    } else {

(...alt for langsom i dag...)

Hvis jeg bruger last eller next, kommer jeg kun ud af if sætningen og ikke while løkken.

Du kommer ud af while-sætningen med en last !

Ovenstående virker som det står, men du kan præcisere hvilken while eller
forløkke du mener med en label (skitse):

LOOP:
while (<>) {
  print "***$_***\n";
  if (/^m/) {
      last LOOP;
  }

}

Det gøre jeg.  Problemerne ligger i min while (<>) { .. }:

$j = 0;
for ($i=0; $i<=10; $i++)
{
  print("First for: $i\n");
  while (<>)
  {
    if ($i == $j) {
      $j++;
      print("Leaving second: $j:\n");
      last;   
´  }
  }   
}

Jeg kommer ikke videre.  Jeg når kun til "First for: 0"  Hvorfor?

Ahh..

<> venter selvfølgelig på input fra STDIN.. det er bare ikke noget at vente på.  Hvordan ser sådan en ud?  Jeg skal bare har en uendelig, som ikke venter noget input.

Undskyld misforståelsen.

while (true) { ... }.

Tak for Hjælpen!!

Hvem vil gerne har pointerne??

gem dem til en anden gang :-)

Ingen points til mig, tak

Det skal jeg nok huske :-)