ReadLine Non-Blocking not supported

minixman has asked for the wisdom of the Perl Monks concerning the following question:

All I have this code installed on my linux box, and it works well, but when i transfer this to win32 and use perlapp to make a freestanding exe, i get this error "Non-blocking ReadLine is not supported on this architecture at test.pl 106 " Is there some sort of bug in the version of perl i am using.

     if (my $inp= ReadLine (-1)) {
      if($inp =~ m/DISPLAYON/i){
       if(($logging)&&($debug)){printf("DEBUG: User has request screen
+ logging to be turned off : $inp\n");}
       $logging = 1;
       #next WILMER;
      }elsif($inp =~ m/DISPLAYOFF/i){
       if(($logging)&&($debug)){printf("DEBUG: User has request screen
+ logging to be turned off : $inp\n");}
       $logging = 0;
      }
     }
      }
[download]

Comment on ReadLine Non-Blocking not supported Download Code

Replies are listed 'Best First'.
Re: ReadLine Non-Blocking not supported by Corion (Patriarch) on Feb 13, 2006 at 10:56 UTC
There is no bug. Non-blocking ReadLine is just not supported on Win32, that's how it is.	[reply]
Re^2: ReadLine Non-Blocking not supported by minixman (Beadle) on Feb 13, 2006 at 13:22 UTC
Aaaa , is there a way around it, another module that is supported ?	[reply]
Re^3: ReadLine Non-Blocking not supported by Akhasha (Scribe) on Feb 13, 2006 at 20:23 UTC
AFAIK this is a limitation of Windows, select() works only on sockets not disk files. All I can suggest is that you write your own nonblocking approximation of readline using Term::ReadKey	[reply]