home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch4 / select2 < prev    next >
Encoding:
Text File  |  1992-10-18  |  449 b   |  22 lines
  1. $rin = $win = $ein = '';
  2. vec($rin, fileno(STDIN), 1) = 1;
  3. vec($win, fileno(STDOUT), 1) = 1;
  4. $ein = $rin | $win;
  5.  
  6. sub fhbits {
  7.     local(@fhlist) = @_;
  8.     local($bits);
  9.     for (@fhlist) {
  10.     vec($bits, fileno($_), 1) = 1;
  11.     }
  12.     $bits;
  13. }
  14. $rin = &fhbits(STDIN,TTY,SOCK);
  15.  
  16. ($nfound, $timeleft) =
  17.     select($rout=$rin, $wout=$win, $eout=$ein, $timeout);
  18.  
  19. $nfound = select($rout=$rin, $wout=$win, $eout=$ein, undef);
  20.  
  21. select(undef, undef, undef, 4.75);
  22.