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 / ioctl < prev    next >
Encoding:
Text File  |  1992-10-18  |  294 b   |  12 lines

  1. #!/usr/bin/perl
  2.  
  3. require 'sys/ioctl.ph';
  4. $sgttyb_t = "ccccs";            # 4 chars and a short
  5. if (ioctl(STDIN, &TIOCGETP, $sgttyb)) {
  6.     @ary = unpack($sgttyb_t, $sgttyb);
  7.     $ary[2] = 127;
  8.     $sgttyb = pack($sgttyb_t, @ary);
  9.     ioctl(STDIN, &TIOCSETP, $sgttyb)
  10.         || die "Can't ioctl TIOCSETP: $!";
  11. }
  12.