Tastaturpuffer löschen (gelöst) (Allgemeines zu Perl)

[thread]16993[/thread]

Tastaturpuffer löschen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+6 replies
bianca

2011-12-17 15:28

User since
2009-09-13
7016 Artikel
BenutzerIn

Hallo!

Bin noch dran, ein Perlscript mit pp zu compilieren. Klappt auch, soweit ich nicht mit GUI arbeite :)

Nun die Frage: Am Ende meines Script soll der Benutzer eine Taste drücken, damit sich das Script dann erst beendet und er vorher die Ausgaben lesen kann.
Allerdings möchte ich an der Stelle, dass der Tastaturpuffer erstmal gelöscht wird, damit nicht Tasten die während der Scriptausführung vielleicht gedrückt wurden am Ende schon zum Ende führen.

Wie mache ich das am einfachsten und platzschonendsten (damit nicht zig Module mit compiliert werden müssen)?

Danke
10 print "Hallo"
20 goto 10
- +5 replies
- jan
  
  2011-12-17 16:02
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  http://stackoverflow.com/questions/7602861/flushin...
  
  20 sekunden mit google, 15 sekunden zum überfliegen des threads, ob das trifft.
  - +4 replies
  - bianca
    
    2011-12-17 16:16
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das hatte ich auch gegoogelt aber soweit ich das sehe braucht man da wieder ein extra Modul Term::ReadKey, das wollte ich eigentlich vermeiden.
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - jan
      
      2011-12-17 17:55
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      warum?
      ich verstehe ja, wenn man dagegen ist, irgendwas zu benutzen, was wilde prereqs an bibliotheken hat und auf jeder architektur umständig kompiliert werden muss etc pp, aber sowas grundlegendes?
      warum willst du das neu schreiben?
      wenn du das modul nicht willst: nimm's auseinander, copy&paste den wesentlichen code in dein programm, dann hast du's auch ohne extra modul, wobei ich den sinn nicht verstehe.
      - +2 replies
      - bianca
        
        2011-12-17 18:04
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-12-17T16:55:21 jan
        warum?
        
        Weil der Anlass viel zu unbedeutend ist.
        Wie kann man den Puffer löschen? Das kann doch nicht massenhaft Befehle notwendig machen, oder?
        10 print "Hallo"
        20 goto 10
        
        topeg
        
        2011-12-17 18:19
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Von STDIN Lesen bis nichts mehr kommt, dann ist der Puffer geleert:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        sub clean_stdin { eval{ local $SIG{ALRM}=sub{die()}; while(1) { alarm(1); getc STDIN; alarm(0); } }; alarm(0); }

View all threads created 2011-12-17 15:28.