RE: how to interact with an endless loop

[Su, Yu (Eugene)]

<STDIN> will stop the looping until "Enter" is pressed. I like to see the
program continues running until a key is pressed, some thing likes two
parallel related processes.

Thanks Greg.

-Eugene

-----Original Message-----
From: Martin, Greg (RTIS) [mailto:[EMAIL PROTECTED]
Sent: Thursday, October 06, 2005 1:21 PM
To: Su, Yu (Eugene); perl-win32-users@listserv.ActiveState.com
Subject: RE: how to interact with an endless loop


You could try reading from STDIN and either quit on a Ctrl-Z or some other
character

Ex:

#this reads in what you type and prints it
#entering ctrl-Z is seen as a blank line and quits

while (<STDIN>) {
        print;
}


\\Greg

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Su,
Yu (Eugene)
Sent: Thursday, October 06, 2005 3:08 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: RE: how to interact with an endless loop

Hi All,

I want to write a simple perl script to start an endless loop (for reading
data from a periphery device, such as a measurement unit), but I also want
to be able to stop it anytime. Right now I use "Ctrl-Alt-Del" to do it.
There must be a better way. I has been trying to use open, pipe...not seem
to understand how to use them.

##### uncompleted code snippet #####

use strict;
use warnings;
use Tk;
use IO::Handle;

sub msgbox {
        my $msg=shift;
        my $mw = MainWindow->new;
        $mw->title("Attention!");
        $mw->Label(-text => $msg,
                        -width => 50,
                        -height => 8,
                        -font => "Arial 24 normal") -> pack;
        $mw->Button(-text => "OK", -font => "Arial 18 normal", -command =>
sub {$mw->destroy})->pack;
        $mw->focusForce;
        MainLoop;
        return 1;
}

# pop up a message widget and start a endless do loop at the same time. 
# msgbox("Press OK to stop the program."); # start a do loop, until the OK
button is pressed # do # {
#       print "\nreading...";
#       #read_temperature_sensor();
#       sleep(1);
#
# }until (OK button is pressed?)

Any idea how to do it? 

Thanks for help.

-Eugene
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs