Hex to signed Integer (1/256) (Allgemeines zu Perl)

[thread]17758[/thread]

Hex to signed Integer (1/256)

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+10 replies
JuMi2006

2012-09-17 11:15
User since
2012-09-17
8 Artikel
BenutzerIn
Hallo zusammen,

ich möchte für ein bestimmtes Protokoll Daten decodieren und encodieren. Die Daten kommen als HEX über die serielle Schnittstelle und beinhalten dann Werte die nach Angaben des Protokolls decodiert werden müssen.
Die Decodierung habe ich aus einem anderen Perl Script schon übernommen, schaffe es aber nicht das ganze dann wieder zu encodieren.

Eingabewert sind 2Bytes ($lb,$hb) und Ausgabe dann $y. Anscheinend sind lowbyte und highbyte hier vertauscht.

Die Doku sagt:

$lb $hb -> $y

00 00 -> 0
00 01 -> 1/256
FF FF -> -1/256
FF 00 -> -1 (Tippfehler beseitigt, vorher falsch: fff0)
80 00 -> -128
80 01 -> -127,996
7F FF -> 127,996

Kennt jemand diese Datentypen und einen Weg fürs encoding ?
Mir fehlen da wirklich die Informatik-Basics.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub decode_d2b { my $lb = $_[1]; my $hb = $_[0]; my $z = hex($hb)*256 + hex($lb); if (($z & 0x8000) == 0x8000) { my $y = -((~hex($hb) & 255) + ((~hex($lb) & 255) + 1)/256); return $y; } else { my $y = hex($hb) + ((hex($lb))/256); return $y; } return; }
Das ganze geht doch bestimmt auch mit einem Einzeiler hin und zurück oder ?

Vielen Dank und Gruß
JuMi2006
Last edited: 2012-09-17 22:12:56 +0200 (CEST)
- +4 replies
- FIFO
  
  2012-09-17 20:09
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  2012-09-17T09:15:42 JuMi2006
  Die Doku sagt:
  
  $lb $hb -> $y
  
  00 00 -> 0
  00 01 -> 1/256
  FF FF -> -1/256
  FF F0 -> -1
  80 00 -> -128
  80 01 -> -127,996
  7F FF -> 127,996
  
  Die Funktion decode_d2b($hi, $lo) fasst Werte mit gesetztem MSB im Hibyte als Zweierkomplement auf.
  In Deiner Tabelle oben ist hi und lo vertauscht (edit: bzw. die Beschriftung $lb $hb falsch, siehe Funktionsaufruf/Parameterreihenfolge). Nicht so ganz klar ist auch die Bedeutung der doppelten $y-Werte in Deiner Tabelle. Werden den Hex-Werten 0x0001 und 0xffff 1 und -1 zugeordnet und/oder 256?
  Last edited: 2012-09-17 20:11:12 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +3 replies
  - JuMi2006
    
    2012-09-17 20:38
    
    User since
    2012-09-17
    8 Artikel
    BenutzerIn
    
    Hallo FIFO,
    
    über die vertauschten high- und lowbytes bin ich auch schon gestolpert.
    Die 0x001 und 0xffff zeigen die "Auflösung" an. es handelt sich um einen Bruchteil von 256. Also einmal + 0,00390625 und einmal -0,00390625.
    
    Die Reihenfolge des Aufrufs kann man ja simpel fixen das trau ich mir noch zu. Aber bei MSB und Bitschieben bin ich echt absolut am Ende.
    
    Danke und Gruß
    Jumi2006
    - +2 replies
    - FIFO
      
      2012-09-17 21:09
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      sorry, ich habs nicht gut genug gelesen. decode_d2b($hb, $lb) gibt zurück:
      
      1. bei Zahlen mit gesetztem höchstwertigem Bit in $hb eine negative Dezimalzahl als Summe aus dem Einerkomplement (~) von $hb und dem Zweierkomplement von $lb geteilt durch 256.
      
      2. sonst als Dezimalzahl als Summe aus $hi und $lb / 256
      
      Im Zweig 1 werden die Komplemente von $hb und $lb auf 8 Bit begrenzt (&255).
      
      Musst Du aus einer Dezimalzahl die $hb-/$lb-Werte rekontruieren?
      
      Gruß FIFO
      
      P.S. Die Funktion ist nicht sehr übersichtlich geschrieben, z.B. wird die unnötige Variable $z eingeführt und das blanke return am Schluss ist auch überflüssig ...
      
      Editiert von FIFO: typos
      Last edited: 2012-09-17 21:18:54 +0200 (CEST)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - JuMi2006
        
        2012-09-17 22:11
        
        User since
        2012-09-17
        8 Artikel
        BenutzerIn
        
        Ja, das Problem ist das konstruieren von highbyte und lowbyte aus einer Dezimalzahl.
        Da steckt ein Tippfehler bei mir drin FF00 -> -1 ... in sofern passt das schon.
        
        Ja ich weiß dass ich damit keinen Schönheitspreis gewinne ;) deshalb frag ich auch nach etwas schlankerem ... Aber noch wichtiger ist eben das encoding. Also einmal rückwärts das ganze.
        
        Gruß JuMi2006
- FIFO
  
  2012-09-17 21:41
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  
  Deine Funktion (etwas gestrafft) gibt nicht immer das zurück, was Du angegeben hast (beachte 0xFFF0):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
  
  use strict; use warnings; while (<DATA>) { my ($hb, $lb) = split /\s+/; print "$hb $lb -> " . decode_d2b($hb, $lb) . "\n"; } sub decode_d2b { my $hb = hex($_[0]); my $lb = hex($_[1]); if ($hb & 0x80) { return -( (~$hb & 255) + ((~$lb & 255) + 1)/256 ); } else { return $hb + $lb/256; } } __DATA__ 00 00 -> 0 00 01 -> 1/256 FF FF -> -1/256 FF F0 -> -1 80 00 -> -128 80 01 -> -127,996 7F FF -> 127,996
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  00 00 -> 0 00 01 -> 0.00390625 FF FF -> -0.00390625 FF F0 -> -0.0625 80 00 -> -128 80 01 -> -127.99609375 7F FF -> 127.99609375
  
  Editiert von FIFO: Bitmaske auf Zw.-Komplement korrigiert
  Last edited: 2012-09-17 22:59:34 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +2 replies
- GUIfreund
  
  2012-09-17 22:28
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Das Encoding geht z. B. so (leider kein Einzeiler):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  sub encode_b2d { my $y = shift; $y *= 256; $y = $y & 0xffff if ($y < 0); my $hb = int $y/256; my $lb = $y % 256; return (sprintf("%0.2X", $hb), sprintf("%0.2X", $lb)); }
  
  Aufruf:
  
  Code (perl): (dl )
  
  1 2
  
  ($hb, $lb) = encode_b2d($y); say "$y -> ($hb, $lb)";
  
  Gruß
  GUIfreund
  - JuMi2006
    
    2012-09-17 22:49
    User since
    2012-09-17
    8 Artikel
    BenutzerIn
    
    Wo ist hier eure Spendenbox?
    
    Hammer...das funktioniert ;)
    
    Darf ich noch einen ranhängen? Es geht um BCD mit dem Beispiel für eine Berechnung:
    
    y= dez(High_Nibble(x)) *10 + dez(Low_Nibble(x))
    
    Das decoding hab ich so gelöst:
    
    Code: (dl )
    
    1 2 3
    
    sub decode_bcd { return (unpack "H*", pack "C*",hex($_[0])); }
    
    Ich hatte da schonmal was fürs Encoding aber das hat ab einem bestimmten Wert nicht mehr gestimmt.
    
    Danke JuMi2006
- +2 replies
- Muffi
  
  2012-09-18 08:07
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Ich glaub ich hab nen Einzeiler:
  
  Code (perl): (dl )
  
  sub decode_d2b { return unpack("s", pack("s", hex($_[0].$_[1]))) / 256; }
  
  Falls ichs richtig gesehn hab ist das ein normaler signed shortint / 256
  
  [EDIT] den encode dazu wird man wohl ähnlich basteln können, aber da gibts bestimmt Leut im Forum, die bei pack/unpack weniger planlos rumstöpseln als ich ;)
  
  [EDIT2]
  So ungefähr könnt der encode ausschaun.
  
  Code (perl): (dl )
  
  my ($lb, $hb) = unpack("H[2]H[2]", pack("s", $num * 256));
  
  Last edited: 2012-09-18 08:58:07 +0200 (CEST)
  1 + 1 = 10
  - JuMi2006
    
    2012-09-18 10:52
    
    User since
    2012-09-17
    8 Artikel
    BenutzerIn
    
    Beides richtig...zumindest mit den Testwerten.
    
    Gruß JuMi2006

View all threads created 2012-09-17 11:15.