Alternative zu „letzten“ in do-Schleife

Question

Nach dem Perl-Handbuch für last (http://perldoc.perl.org/functions/last.html), last nicht verwendet werden kann, aus do {} Schleifen zu brechen, aber es keine Alternative zu nennen. Die Skript ich beibehalten hat diese Struktur:

do { 
    ... 
    if (...) 
    { 
     ... 
     last; 
    } 
} while (...); 

und ich bin mir ziemlich sicher, dass er bis zum Ende der Schleife gehen will, aber es ist eigentlich das aktuelle Unterprogramm austritt, so brauche ich, um entweder die last zu ändern oder refactor die ganze Schleife, wenn es eine bessere Möglichkeit gibt, die jemand empfehlen kann.

Answer 1

do BLOCK while (EXPR) lustig ist, dass nicht wirklich eine Schleifenstruktur ist. Also, last, next und redo sollen dort nicht verwendet werden. Beseitigen Sie die letzte und passen Sie die EXPR an, um den Wert false zu ermitteln, wenn diese Situation gefunden wird. Aktivieren Sie auch strict, was Ihnen hier zumindest eine Warnung geben sollte.

Answer 2

@ "http://perldoc.perl.org/functions/last.html": zuletzt verwendet werden kann, nicht um einen Block zu beenden, die einen Wert zurückgibt, wie eval {}, {} oder sub Do {}, und sollte nicht verwendet werden, um eine Grep() - oder Map() -Operation zu beenden.

So verwenden Sie einen boolean in der 'while()' und es an dem Sie 'last' haben ...

Answer 3

Wickeln Sie die do "Schleife" in einem kahlen Block (die ist eine Schleife):

{ 
    do { 
     ... 
     if (...) 
     { 
      ... 
      last; 
     } 
    } while (...); 
} 

Dies funktioniert für letzte und Redo, aber nicht weiter; für diesen Platz der bloße Block in der Do-Block:

do {{ 
    ... 
    if (...) 
    { 
     ... 
     next; 
    } 
    ... 
}} while (...); 

Answer 4

Nie ein Fan von Do/While-Schleifen in Perl. Die do ist nicht wirklich eine Schleife, weshalb last nicht ausbrechen wird. In unserer alten Pascal Benommenheit konnte man eine Schleife in der Mitte nicht verlassen, weil das wäre falsch nach dem weisen Niklaus "Ein Eingang/ein Ausgang" Wirth. Daher mussten wir eine Exit-Flagge erstellen. In Perl würde es in etwa so aussehen:

my $endFlag = 0; 
do { 
    ... 
    if (...) 
    { 
     ... 
     $endFlag = 1; 
    } 
} while ((...) and (not $endFlag)); 

Jetzt können Sie sehen, während Pascal auf nie erwischt.

Answer 5

Warum nicht einfach eine While-Schleife verwenden?

while (...) { 
    ... 
    if (...) { 
    last; 
    } 
} 

Sie haben vielleicht Ihre Logik etwas zu ändern, um die Tatsache zu berücksichtigen, die den Test bei der statt Ende der Schleife beginnt, aber das sollte trivial sein.

Übrigens, Sie können tatsächlich aus einer Pascal-Schleife ausbrechen, wenn Sie Delphi verwenden, und Delphi DID für eine Weile, bis Microsoft und die .net-Sprachen kam.