Help for this page

Select Code to Download


  1. or download this
    if ($device eq undef) {
            die "Usage: <app> /dev/hidrawN";
            exit;
    }
    
  2. or download this
    @ARGV or die "Usage: <app> /dev/hidrawN";
    
  3. or download this
        my $report = ord(substr($data, 1, 1));
        my $status = ord(substr($data, 2, 1));
    ...
        if($exp != 255 && $exp != 0) {
            $weight ^= $exp;
        }
    
  4. or download this
        my ( $report, $status, $unit, $exp, $weight ) = unpack 'xCCCCS', $
    +data
        $weight /= 10;
    ...
            $weight ^= $exp;
        }