sslug-teknik team mailing list archive

["Ole Tange" <tange@xxxxxxxx>]

On Mon, 19 Jan 2004 03:09:18 -0800, Mikkel Meinike Nielsen wrote:

> kære sluggere
> 
> Mit brev blev klippet over læs dette i stedet.
> 
> jeg skal have skrevet et script eller et program til en special opgave.
> Man skal se for sig at tastaturet af compugeren er overdækket på en
> sådan måde at kun tre taster er tilgængelige. Det kunne være d, ø,
> og 4 (4 på det numeriske tastatur) For hver gang man trykker på en af
> disse knapper skal der ske nogenlunde det samme. Lad os sige man trykker
> på a så skal der ske følgende.
> 
> 

0. start X:
X :0

> 1. skærmen bliver rød.

1. vis et billede (rødt)
xloadimage -geometry 1024x768+0+0 roed.png

> 2. Der starter en MP3 musikfil (der høres musik)

2. afspil mp3-fil. Filen skal være klippet til at vare 90 sek.
mpg321 foo.mp3

> 3. der lukkes for andre indput fra de tilgengelige taster i 90 sek.

3. se 2

> 4. Efter 90 sek. stopper musikken, skæremn vender tilbage til sin
> normale, (primært sorte) farve

Primært? Er der noget du her ikke fortæller? Ellers:
xloadimage -geometry 1024x768+0+0 sort.png

> og der bliver igen åbnet for nye input
> fra de tilgengelige taster.

#!/usr/bin/perl

use Term::ReadKey;

while(1) {
    ReadMode 3;
    while (not defined ($key = ReadKey(0))) {
        # No key yet
    }
    ReadMode 0;
    if ($key eq "a") {
        system("ls");
    }
    if ($key eq "4") {
        system("echo foo");
    }
    if ($key eq "ø") {
        system("echo En ø i en å");
    }
}

Kan du selv kombinere oventstående til noget brugbart?

/Ole