Leser: 1
9 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
use Term::ReadKey;
$SIG{INT} = sub{ReadMode 0;exit;};
ReadMode 4;
while(1){
my $key;
while (not defined ($key = ReadKey(-1))) {
tu_was();
sleep 1;
}
if ($key eq "q") {last;}
}
ReadMode 0;
9 Einträge, 1 Seite |