ProPeler
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
usr
/
share
/
perl5
/
IO
/
Filename :
stty.pl
back
Copy
#!/usr/bin/perl require IO::Stty; foreach $param (@ARGV) { push (@params,split(/\s/,$param)); } $stty = IO::Stty::stty(\*STDIN,@params); if ($stty ne '0 but true') { print $stty; }