Jack B. Nymbol has asked for the wisdom of the Perl Monks concerning the following question:
require 'sys/ioctl.ph'; sysopen( FD, "/dev/console", 1 ) or die "Unable to open /dev/console"; select(FD);$|++; my $KDSETLED = 0x4B32; my $stat = ioctl(FD, $KDSETLED, 0x0) || -1; close(FD); print STDOUT "status = $stat\n";
|
|---|