Communications question
Benjamin Holzman
bholzman at earthlink.net
Fri Jul 9 14:34:49 CDT 1999
On Fri, Jul 09, 1999 at 02:43:28PM -0400, Chastain, Jack (Jack)** CTR ** wrote:
> Greetings, all
>
> A friend of mine is doing some serial communications control - something I
[ ... ]
> underlying network system. There apparently is no indications in the fnctl
> module for a BREAK sequence.
>
I believe that what you are looking for is what the POSIX function tcsendbreak()
does, which is available in perl as follows:
use POSIX qw/tcsendbreak/;
tcsendbreak(fileno(FILEHANDLE), $duration);
you should check your local man pages on tcsendbreak to understand $duration
exactly.
Ben
--
sub v ($){ $_ ? uc shift : $_[0] } sub erse { /../ && return 'a'..'z';'A'..'Z'}
$_='CEVAG ERIREFR RINY ERIREFR D.uNPXRE, cREY, nABGURE, wHFG} _$ RFERIRE ENYNPF
{CNZ ,"$ AVBW.';s'.'$_{"\x35"}'geee;eval;BEGIN{for(0,32){@{chr(64|$_)}{v n..v z
,v a..v 'm'}=erse()}@_{53,3..5}=('$`{$&}||$@{$&}||$&',map '$_{'.$_.'}',51..53)}
More information about the Albany-pm
mailing list