| Category: | utility scripts |
| Author/Contact Info | original c version author uknown to me. this is just a perl translation and refinement of that work. |
| Description: | perl translation of the old classic 'force.c', allowing you to force input to a terminal device. even though it saw a lot of illegitimate use in the past, i've found quite a few legitimate uses for it over the years - the ioctl/fcntl defs are hard-coded at the top and may need to be changed for other systems (consult your ioctl.ph, ioctls.ph and fcntl.ph for the proper values - consult h2ph if you do not have these files in your perl tree) |
#!/usr/bin/perl -w
use POSIX;
eval 'sub O_NDELAY () { &O_NONBLOCK;}' unless defined(&O_NDELAY);
eval 'sub TCFLSH () {0x540b;}' unless defined(&TCFLSH);
eval 'sub TIOCSTI () {0x5412;}' unless defined(&TIOCSTI);
if(@ARGV < 2) {
print "usage : force <device> <command string>\n";
exit;
}
$Device = shift(@ARGV);
$Command = join(' ',@ARGV);
sysopen($DEVICE,$Device,&O_NDELAY|O_RDWR)||die "cannot open device '$D
+evice' : $!\n";
if(ioctl($DEVICE,&TCFLSH,0) < 0) {
print "ioctl TCFLSH error on '$Device' : $!\n";
}
foreach $Char (split(//,"$Command\n")) {
if(!(ioctl($DEVICE,&TIOCSTI,$Char))) {
print "ioctl TIOCSTI error on '$Device': $!\n";
}
}
close($DEVICE)||die "cannot close device '$Device' : $!\n";
|
|
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: force.pl
by nothingmuch (Priest) on Oct 27, 2002 at 18:56 UTC |