Opened by solder at 2004-05-25 00:56
User since
2004-05-25
5 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-25
5 Artikel
BenutzerIn
Hallo,
irgendwie schaffe ich es nicht eine Tastaturabfrage so zu machen, daß ich nur eine Taste drücken muß (ohne Enter hinterher). Ich habe schon verschiedenen Code (auch aus dem Forum) probiert, es geht nicht. Ich würd's gern mit Select machen, da später noch andere Eingabekanäle hinzukommen. Die Abfrage soll aber nur ein kleines Timeout haben, da ich auch noch auf eine PID testen muß. So sieht einer meiner Versuche aus:
Ich hab' keine Idee mehr. Ihr? Danke schon mal für's ansehen ;-)
Solder
irgendwie schaffe ich es nicht eine Tastaturabfrage so zu machen, daß ich nur eine Taste drücken muß (ohne Enter hinterher). Ich habe schon verschiedenen Code (auch aus dem Forum) probiert, es geht nicht. Ich würd's gern mit Select machen, da später noch andere Eingabekanäle hinzukommen. Die Abfrage soll aber nur ein kleines Timeout haben, da ich auch noch auf eine PID testen muß. So sieht einer meiner Versuche aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
$pid = open (OUT, "| mplayer /Server/video/video.avi 2>/dev/null 1>/dev/null ") or die "geht nicht";
OUT->autoflush(1);
while (!waitpid($pid,WNOHANG)) {
$|=1;
vec( my $in, fileno(STDIN), 1 ) = 1;
if ( select( $in, undef, undef, 1 ) ) {
my $input = <STDIN>;
print OUT "$input";
}
}
close OUT;
Ich hab' keine Idee mehr. Ihr? Danke schon mal für's ansehen ;-)
Solder
Ich verwende Perl 5.8.x unter SuSE Linux oder Debian Sarge
Projekte: Perl für Apache/MySQL-CGI (funktioniert wunderbar)
Jukebox-Projekt (große Baustelle).
Projekte: Perl für Apache/MySQL-CGI (funktioniert wunderbar)
Jukebox-Projekt (große Baustelle).