Re: do-while loop never exits

This is because you're declaring $test inside the loop using my. The consequence of this is that the variable doesn't exist outside the loop (where your while-condition resides). You can fix this by either declaring my $test; before entering the loop, or using something like this to exit instead:

while (1) {
    print "Enter an address, QUIT to exit\n";
    my $test = <STDIN>;
    chomp ($test);
    print "$test\n";
    if (lc ($test) eq "quit") { last; }
} ## end while (1)
[download]

Comment on Re: do-while loop never exits Select or Download Code

Replies are listed 'Best First'.
Re^2: do-while loop never exits by IvyR (Novice) on Apr 19, 2011 at 13:02 UTC
That did it. Thank you very much.	[reply]
Re^2: do-while loop never exits by DrHyde (Prior) on Apr 21, 2011 at 10:06 UTC
This would have been caught if you `use`d `strict`.	[reply] [d/l] [select]