do { ... } while 1;
is no different than
print ... while 1;

The while is a statement modifier. There's no loop block, and one is needed for redo, next and last to work.

A generic solution is to add a loop. Keep in mind that a bare block is a loop that executes once.

$a = 3;
LOOP_ONCE: {
   do {
       last unless $a == 4;
   } while cond();
}
[download]

The label (LOOP_ONCE:) is descriptive and not necessary.

Yeah , that's the work-around I've used also , I didn't like it , actually I hate it , but I'll have to stick with it

Yeah, me too. I don't know why I suggested it. Another generic solution is to change the bottom tested loop into an infinite loop.

do {
   ...
   next if ...;  # XXX
   ...
   last if ...;  # XXX
   ...
} while cond();
[download]

becomes

for (;;) { # for ever
   ...
   next if ...;  # OK
   ...
   last if ...;  # OK
   ...
   last if !cond();
}
[download]

I don't see much value in the construct, but you can achieve your goal by adding a bare block:

do{{ 
    last unless $a==4 
}} while 1;
[download]

BrowserUk,
I am parsing with my brain and not perl but something is telling me that should instead be:

{
    my $a = 3;
    do {
        last unless $a == 4;
    } while 1;
}
[download]

The difference being that you would be escaping the block and the loop. In my brain's parsing of your version, I last outside of the loop which is still inside the block and then re-enter because of the post-fix while condition.

Cheers - L~R

You parsed it correct. BrowserUk made the last behave like a next.

Right you are.

Adding a bare block allows the use of the loop constructs, next, last & redo ansd works as expected most places, but not in this case.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP PCW

Funnily, simple braces { } qualify as a 'loop' which is processed once. It can be aborted using last.

Therefore you could use:

$a = 3;
{
    last unless $a == 4;
    redo; # if ( ... );
}
[download]

Supplement:
The perldoc entry for do also gives you the answer and a link to alternative strategies:

do BLOCK
               Not really a function.  Returns the value of the last c
+ommand in the sequence of commands indicated by BLOCK.  When modified
+ by the "while" or "until" loop modifier, executes the BLOCK
               once before testing the loop condition. (On other state
+ments the loop modifiers test the conditional first.)

               "do BLOCK" does not count as a loop, so the loop contro
+l statements "next", "last", or "redo" cannot be used to leave or res
+tart the block.  See [doc://perlsyn] for alternative strategies.
[download]

Try to use a normal while loop instead.

I kind of need the post-condition and while only gives me pre-condition

Try the follwing:

Instead of:

do {
 ...
} while (expr);
[download]

use:

while (1) {
 ...
 last unless (expr);
}
[download]