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;
 Wie frage ich & perlintro
Wie frage ich & perlintro  brian's Leitfaden für jedes Perl-Problem
brian's Leitfaden für jedes Perl-Problem Wie frage ich & perlintro
Wie frage ich & perlintro  brian's Leitfaden für jedes Perl-Problem
brian's Leitfaden für jedes Perl-Problem|  |  | 9 Einträge, 1 Seite |