topic Re: Perl Script help for infinite loopand exit for user i/p mismatch in Operating System - Linux

Perl Script help for infinite loopand exit for user i/p mismatch

anilsingh — Tue, 27 Oct 2009 11:38:14 GMT

I just want to run 5 perl script from a single one.I wrote the script(attached).Now I want to continue a loop until user press option as "n".I used Do-while llop,but it's not working,i.e,working same for either "y" or "n".
could someone help in this regard?

Re: Perl Script help for infinite loopand exit for user i/p mismatch

James R. Ferguson — Tue, 27 Oct 2009 18:46:58 GMT

Hi:

Attached you will find a version that senses your responses. You have mixed "=", "==" and 'eq' operators and forgotten to 'chomp' some of your input. I have maintained your formatting style so you can see what and where changes were made.

You should ALWAYS set the 'strict' and the 'warnings' pragmas. You will save yourself considerable grief in debugging silly mistakes.

Lastly, a 'do...while' or 'do..until' in Perl is not nearly as powerful as a 'while...do' loop since 'ntxt', 'last' and 'redo' controls cannot be used to exit the block.

Regards!

...JRF...

Re: Perl Script help for infinite loopand exit for user i/p mismatch

anilsingh — Wed, 28 Oct 2009 05:52:27 GMT

Thanks a lot James.After looking into the code snap providerd by you,I can really understand that usage of mainframe and not using PERL for long time really blunted my PERL skill ;-)