Leser: 16
1 2 3 4 5 6 7 8
sub SplitIntIn2Byte { my $int = shift; $hi = $int >> 8; $lo = $int & 0b0000000011111111; return (chr($hi),chr($lo)); }
1 2 3 4 5 6 7 8
sub Add2ByteInInt { my $byte1 = shift; my $byte2 = shift; # Da fehlt das zusammenzählen return (chr($int)); }
$int = $hi << 8 | $lo ;