🚀 go-pugleaf

Witam
Obudowuję polecenie udp-sender (http://udpcast.linux.lu/) za pomocą 
interfejsu Curses:UI. 
Nie wiem za bardzo jak obejść gdy program czeka na wciśnięcie dowolnego 
klawisza aby wysłać dane.
Chciałbym aby naciśnięcie 'dowolnego klawisza' odbywała się przez 
naciśnięcie odpowiedniego przycisku i żeby program 'nie reagował' na 
wciskane klawisze klawiatury.
Co do drugiego to udp-sender ma opcję --nokbd ale wówczas po stronie 
klienta, czyli udp-receiver musiałbym wciskać klawisz a wolałbym to 
zrobić po stronie serwera. 
Poniżej wystarczający fragment do testowania. Jakby ktoś mógł mnie 
nakierować co przeczytać, bo aktualnie nie wiem z której strony się do 
tego zabrać.
#v+
#!/usr/bin/perl 
use strict;
use warnings;
use Curses::UI;
my $cui = new Curses::UI(
	-clear_on_exit => 1,
);
my $window = $cui->add(
	'window','Window',
	-padtop => 1,
);
my $viewer = $window->add(
	'viewer','TextViewer',
	-border => 1,
	-height => $window->height - 10,
);
my $button = $window->add(
	'button','Buttonbox',
	-y => -1,
	-x => 1,
	-buttons => [
		{
			-label => 'Prepare',
			-onpress => \&execute,
			-shortcut => 'p',
			-value => 'prepare',
		},
		{
			-label => 'Send',
			-onpress => \&execute,
			-shortcut => 's',
			-value => 'send',
		}
	]
);
sub execute {
	my $this = shift;
	my $value = $this->get;
	for($value){
		if(/prepare/){
			my $command = "udp-sender --file file 2>&1 |";
			open(IN,$command);
			while( defined( my $line = <IN>) ){
				chomp($line);
				$viewer->text($viewer->text.$line."\n");
				$viewer->draw;
			}
		}elsif(/send/){
			#wyślij dane
		}
	}
} 
$cui->set_binding(sub{exit},"\cq");
$cui->mainloop;
#v-
-- 
piecia aka dracorp
pisz na: piotr kropka rogoza at wp kropka eu