note
zentara
There is alot of code around for doing this, here are a few methods to save you the search. They all involve running a loop of some kind. In the Glib examples, you can substitute another event loop of your choosing.
<p>
<readmore>
Term-ReadKey in a thread
<c>
#!/usr/bin/perl
use warnings;
use strict;
use Term::ReadKey;
use threads;
$|++;
ReadMode('cbreak');
# works non-blocking if read stdin is in a thread
my $count = 0;
my $thr = threads->new(\&read_in)->detach;
while(1){
print "test\n";
sleep 1;
}
ReadMode('normal'); # restore normal tty settings
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 'q'){exit}
#if(length $char){exit} # panic button on any key :-)
}
}
}
__END__
</c>
<p>And an event loop based example using [cpan://Glib]
<c>
#!/usr/bin/perl
use warnings;
use strict;
use Glib;
my $main_loop = Glib::MainLoop->new;
Glib::IO->add_watch (fileno 'STDIN', [qw/in/], \&watch_callback, 'STDIN');
#just to show it's non blocking
my $timer1 = Glib::Timeout->add (1000, \&testcallback, undef, 1 );
$main_loop->run;
sub watch_callback {
# print "@_\n";
my ($fd, $condition, $fh) = @_;
my $line = readline STDIN;
print $line;
#always return TRUE to continue the callback
return 1;
}
sub testcallback{
print "\t\t\t".time."\n";
}
__END__
</c>
<p>Another one combining an eventloop [cpan://Glib] with threads
<c>
#!/usr/bin/perl
use warnings;
use strict;
use Glib;
use Term::ReadKey;
use threads;
$|++;
ReadMode('cbreak');
# 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'], \&callback);
# must be done after main_loop is running
#Glib::Idle->add( sub{});
#print "$ps\n";
my $timer1 = Glib::Timeout->add (10, \&testcallback, undef, 1 );
$main_loop->run;
ReadMode('normal'); # restore normal tty settings
sub testcallback{
my $ps = `ps auxww`;
print "$ps\n";
return 0; #only run once
}
sub timer_callback{
#do stuff
$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 'q'){exit}
#if(length $char){exit} # panic button on any key :-)
if($char eq 'p'){
Glib::Idle->add(
sub{
my $ps = `ps auxww`;
print "$ps\n";
return 0; # run only once
} );
}
}
}
}
__END__
</c>
<p>And finally an IO::Select based solution to avoid threads
<c>
#!/usr/bin/perl
use warnings;
use strict;
use IO::Select;
# remember what select says about mixing
# buffered reading and "select", so even though the
# code works, you might want to substitute
# the read via <$fh> with:
# my $input;
# sysread( $fh, $input, 1024);
# loop every 5 second
my $timeout = 5;
my $s = IO::Select->new();
$s->add( \*STDIN );
while (1) {
if ( my @ready = $s->can_read($timeout) ) {
# we got input
for my $fh (@ready) {
print "$fh\n";
my $input = <$fh>;
print "got: $input";
}
}
else {
# no input
}
# just to show that we're looping
print scalar localtime,"\n";
}
</c>
</readmore>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-131741">
<hr />
I'm not really a human, but I play one on earth.<br>
[id://630805] ................... <a href=http://zentara.net/japh.html> flash japh </a>
</div></div>
927943
927943