Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: We interrupt this program...

by zentara (Archbishop)
on Feb 20, 2008 at 20:06 UTC ( #669092=note: print w/replies, xml ) Need Help??


in reply to We interrupt this program...

GLib to the rescue. If you put the readkey in a thread, you can control the mainloop thru a shared variable. 's' makes it stop, 'g' makes it go, 'q' makes it exit.
#!/usr/bin/perl use warnings; use strict; use Glib; use Term::ReadKey; use threads; use threads::shared; $|++; ReadMode('cbreak'); my $go; share($go); # order is important $go = 1; # works non-blocking if read stdin is in a thread my $count = 0; my $thr = threads->new(\&read_in)->detach; my $main_loop = Glib::MainLoop->new; my $timer = Glib::Timeout->add (1000, \&timer_callback, undef, 1 ); # can also have filehandle watches #my $watcher; #$watcher = Glib::IO->add_watch( fileno( $pty ), ['in', 'hup'], \&call +back); $main_loop->run; ReadMode('normal'); # restore normal tty settings sub timer_callback{ #do stuff if($go){ $count++; print "\n$count\n"; } return 1; } sub read_in{ while(1){ my $char; if (defined ($char = ReadKey(0)) ) { print "\t\t$char->", ord($char),"\n"; #process key presses here if($char eq 's'){$go=0} if($char eq 'g'){$go=1} if($char eq 'q'){exit} # if(length $char){exit} # panic button on any key :-) } } } __END__

I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://669092]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2022-01-21 11:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (57 votes). Check out past polls.

    Notices?