George P. wrote: > On Wed, 2 Jul 2003, Clinton wrote: > > > Hi > > Using WinNt and ActiveState 5.6 > > I have a script reading data from a modem. For some reason it will not run > > with a while loop. (I'm using a module which I don't fully understand, yet) > > I can run the script from the command line, let it finish and rerun it > > manually every thing works fine (with some impact on resources which I > > can live with for the moment) > > How do I make it rerun? > > I tried wrapping the script in a > > while(1){ > > use My::Module; > > some script > > exit; > ^^^^ > > Remove the 'exit' and it should run in(fine)tely. :) > > George P. > > > } > > and then run it from the command line but it does not stay "live" > > Gosh! I hope this makes sense it looks like my medication needs a boost! > > Assistance appreciated
Hi Clinton. George is right, but I have this feeling there may be something else amiss. For a start, you do still need to terminate the process somehow. Also, 'use' is a compile-time statement and, while it can be placed anywhere, it doesn't make sense to put it anywhere other than at the top of the containing file. Go for use strict; # always use warnings; # usually use My::Module; my $finished; while (1) { some_script(); exit if $finished; } sub some_script { : } HTH, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]