Is there any command to come out of the loop?

[susinthaa]

Hi,
I tried the following code.I m trying 2 compare two strings.If its not matches, the while loop has to continue and if it matches, it will come out of the while loop.
But In my code, Even it matches the while loop continuing.
can anybody tell me where I am wrong?

$flag=1;
LINEP:
while ($flag==1) {
    print"Enter the lun name\n";
    chomp($lunname=<stdin>);
    foreach $line (@weblist) {
        if ($line =~ m/$lunname/i) {
            $flag=0;
            print " found";
            redo LINEP;
        } else {
            $flag=1;
            redo LINEP;
        }
 
    }
}
 

Thanks and Regards,
susi

[KevinADC]

You posted in the perl articles area.

If you want out of the loop, why are you using "redo"? Maybe you should use "last".

if ($line =~ m/$lunname/i) {
print " found";
last LINEP;
}

[susinthaa]

Hi Kevin,

Yes, Last is working fine to come out of the loop
But I want to loop again for invalid inputs.

Thanks,
Susi.

[alcazar]

Use "next" to go back to beginning of loop

[KevinADC]

Hi Kevin,

Yes, Last is working fine to come out of the loop
But I want to loop again for invalid inputs.

Thanks,
Susi.

last - exits loop
next - goes to next iteration of loop
redo - does the same loop over again

you figure out which loop control you need to use.

[susinthaa]

Hi ,

Thanks for your valuable information.
Now I understand.Where I have to use these.

Thanks and Regards,
Susi.