Opened by Gast at 2005-08-03 11:42
Hallo miteinander,
Ich bin neu in diesem Forum und hoffe hier Hilfe zu einem Problem zu bekommen.
Ich schreibe gerade an einem script das vom Benutzer jederzeit (durch Eingabe einer bestimmten Taste) beendet werden kann.
Ich bin dabei auf das Modul "Term::ReadKey" gestossen welches meiner Meinung nach (theoretisch :)) dafür geeignet wäre.
Praktisch bekomme ich es aber leider nicht hin :(
Hier nun mein test-script:
Führe ich dieses script nun aus, geht es sofort in die while-schleife.
Diese wird aber nicht verlassen wenn ich irgend eine Taste drücke !?
Vielleicht weiss hier jemand warum oder wie ich auf einem anderen weg zum Ziel komme.
Danke im Voraus,
Roman
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1123057677-->
Ich bin neu in diesem Forum und hoffe hier Hilfe zu einem Problem zu bekommen.
Ich schreibe gerade an einem script das vom Benutzer jederzeit (durch Eingabe einer bestimmten Taste) beendet werden kann.
Ich bin dabei auf das Modul "Term::ReadKey" gestossen welches meiner Meinung nach (theoretisch :)) dafür geeignet wäre.
Praktisch bekomme ich es aber leider nicht hin :(
Hier nun mein test-script:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use Term::ReadKey;
my $k;
ReadMode 2;
while (not defined ($k = ReadKey(-1))){
print "no key pressed\n";
}
print "key: $k pressed\n";
ReadMode 0;
Führe ich dieses script nun aus, geht es sofort in die while-schleife.
Diese wird aber nicht verlassen wenn ich irgend eine Taste drücke !?
Vielleicht weiss hier jemand warum oder wie ich auf einem anderen weg zum Ziel komme.
Danke im Voraus,
Roman
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1123057677-->