Professional Web Applications Themes

loop until key is pressed - PERL Beginners

I'd like to use a while construct to loop until a key, any key, is pressed. I'm aware of the <STDIN> source for input, but with what function do I check for key presses regardless of <Enter>?...

  1. #1

    Default loop until key is pressed

    I'd like to use a while construct to loop until a key, any key, is pressed.
    I'm aware of the <STDIN> source for input, but with what function do I check
    for key presses regardless of <Enter>?


    Darren Guest

  2. #2

    Default Re: loop until key is pressed

    At 11:00 AM 3/4/04 -0600, you wrote: 



    Use the CPAN module Term::ReadKey, and try to read a key in non-blocking
    mode by passing it an argument of -1

    if (defined ($char = ReadKey(-1)) ) {
    # input was waiting and it was $char
    } else {
    # no input was waiting
    }



    Tim Guest

  3. #3

    Default Re: loop until key is pressed

    At 11:00 AM 3/4/04 -0600, you wrote: 

    forgot to add :
    ReadMode 'cbreak';
    before, and
    ReadMode 'normal';
    after.

    should read:

    ReadMode 'cbreak';
    $key = ReadKey(0);
    ReadMode 'normal';

    my oo...
    Tim Guest

Similar Threads

  1. Multiple keys pressed...
    By Krisaor webforumsuser@macromedia.com in forum Macromedia Director 3D
    Replies: 3
    Last Post: February 7th, 05:34 PM
  2. Setting a variable when a button pressed.
    By Aaron Bertrand - MVP in forum ASP
    Replies: 2
    Last Post: July 17th, 12:12 PM
  3. Detecting which submit button pressed
    By Albert Ahtenberg in forum PHP Programming
    Replies: 1
    Last Post: July 1st, 09:00 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139