set tty in raw mode for log tool
This commit is contained in:
parent
1d5577a777
commit
5e592dee50
|
@ -8,11 +8,12 @@ if (not defined $dev){
|
||||||
if (! -e $dev) {
|
if (! -e $dev) {
|
||||||
die "$dev not found"
|
die "$dev not found"
|
||||||
}
|
}
|
||||||
open(my $fh,"<",$dev) or die "unable to open $dev";
|
|
||||||
if (defined $speed){
|
if (defined $speed){
|
||||||
print("setting speed $speed");
|
print("setting speed $speed");
|
||||||
system("stty speed $speed < $dev") == 0 or die "unable to set speed";
|
system("stty speed $speed < $dev") == 0 or die "unable to set speed";
|
||||||
}
|
}
|
||||||
|
system("stty raw < $dev") == 0 or die "unable to set raw mode for $dev";
|
||||||
|
open(my $fh,"<",$dev) or die "unable to open $dev";
|
||||||
my $last=0;
|
my $last=0;
|
||||||
while (<$fh>){
|
while (<$fh>){
|
||||||
my $x=time();
|
my $x=time();
|
||||||
|
|
Loading…
Reference in New Issue