RE: [misterhouse-users] RE: FW: MK19 driver

[Bruce W. <br...@mi...>]

> my $mk19_data = "/dev/pc_remote";
>
> if (-s $mk19_data) {
>    my $str = unpack "C", $file_read $mk19_data;
>    print "Data: $str\n";
> }

Sorry, made a couple of mistakes here.  Had a $ on file_read and forgot to
delete the file after reading it:

   my $str = unpack "C", file_read $mk19_data;
   print "Data: $str\n";
   unlink $mk19_data;

Bruce