Re: do until loop breaks before meeting the condition

[BillKSmith]

Avoid the issue. Use a prompt module.

use strict;
use warnings;
use IO::Prompt::Hooked;

my %opt = (
    message  => "Enter text (1-255 characters) to send to clients: ",
    validate => qr/^.{1,255}$/,
    error    => "You have exceeded the limit of 1-255 characters - Try
+ again\n",  
    escape   => qr/^END$/i,
);

while ( my $result = prompt(%opt) ) {
    print ">>$result<<\n"
}

[thanos1983]

To: BillKSmith,

Nice, I had no clue about this process. It might also come in handy to other scripts. Thanks for sharing.