set tty in raw mode for log tool

This commit is contained in:
andreas 2024-11-04 10:50:17 +01:00
parent 1d5577a777
commit 5e592dee50
1 changed files with 2 additions and 1 deletions

View File

@ -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();