IO::Stty(3) | User Contributed Perl Documentation | IO::Stty(3) |
IO::Stty - Change and print terminal line settings
# calling the script directly stty.pl [setting...] stty.pl {-a,-g,-v,--version} # Calling Stty module use IO::Stty; IO::Stty::stty(\*TTYHANDLE, @modes); use IO::Stty; $old_mode=IO::Stty::stty(\*STDIN,'-g'); # Turn off echoing. IO::Stty::stty(\*STDIN,'-echo'); # Do whatever.. grab input maybe? $read_password = <>; # Now restore the old mode. IO::Stty::stty(\*STDIN,$old_mode); # What settings do we have anyway? print IO::Stty::stty(\*STDIN,'-a');
This is the PERL POSIX compliant stty.
This has not been tailored to the IO::File stuff but will work with it as indicated. Before you go futzing with term parameters it's a good idea to grab the current settings and restore them when you finish.
stty accepts the following non-option arguments that change aspects of the terminal line operation. A `[-]' before a capability means that it can be turned off by preceding it with a `-'.
* Though this claims non-posixhood it is supported by the perl POSIX.pm.
cread -ignbrk brkint -inlcr -igncr icrnl -ixoff opost isig icanon echo echoe echok -echonl -noflsh -tostop
also sets all special characters to their default values.
brkint ignpar istrip icrnl ixon opost isig icanon
plus sets the eof and eol characters to their default values if they are the same as the min and time characters. With `-', same as raw.
-ignbrk -brkint -ignpar -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -opost -isig -icanon min 1 time 0
With `-', same as cooked.
-parenb -istrip cs8
With `-', same as parenb istrip cs7.
echoe echoctl echoke -ixany
Also sets the interrupt special character to Ctrl-C, erase to Del, and kill to Ctrl-U.
The special characters' default values vary from system to system. They are set with the syntax `name value', where the names are listed below and the value can be given either literally, in hat notation (`^c'), or as an integer which may start with `0x' to indicate hexadecimal, `0' to indicate octal, or any other digit to indicate decimal. Giving a value of `^-' or `undef' disables that special character.
IO::Stty::stty(\*STDIN, @params);
From comments:
I'm not feeling very inspired about this. Terminal parameters are obscure and boring. Basically what this will do is get the current setting, take the parameters, modify the setting and write it back. Zzzz. This is not especially efficent and probably not too fast. Assuming the POSIX spec has been implemented properly it should mostly work.
Austin Schutz <auschutz@cpan.org> (Initial version and maintenance)
Todd Rinaldo <toddr@cpan.org> (Maintenance)
This is use at your own risk software. Do anything you want with it except blame me for it blowing up your machine because it's full of bugs.
See above for what functions are supported. It's mostly standard POSIX stuff. If any of the settings are wrong and you actually know what some of these extremely arcane settings (like what 'sane' should be in POSIX land) really should be, please open an RT ticket.
None
Copyright 1997 Austin Schutz, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2020-01-19 | perl v5.34.0 |