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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-10-18
|
294 b
|
12 lines
#!/usr/bin/perl
require 'sys/ioctl.ph';
$sgttyb_t = "ccccs"; # 4 chars and a short
if (ioctl(STDIN, &TIOCGETP, $sgttyb)) {
@ary = unpack($sgttyb_t, $sgttyb);
$ary[2] = 127;
$sgttyb = pack($sgttyb_t, @ary);
ioctl(STDIN, &TIOCSETP, $sgttyb)
|| die "Can't ioctl TIOCSETP: $!";
}