2byte signed Integer zusammensetzen (Allgemeines zu Perl)

[thread]19451[/thread]

2byte signed Integer zusammensetzen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+19 replies
monti

2015-01-06 11:28

User since
2011-08-05
57 Artikel
BenutzerIn

Hallo zusammen,

aktuell habe ich einen Denkfehler irgendwo :)
Ich bekomme 2byte (high und low) für einen 16bit signed Integer. Diesen will ich mit einem einfachen shift zusammensetzen.
Leider komme ich gerade nicht drauf, wie ich das Vorzeichen auswerte!

Aktuell setze ich ihn so zusammen:

my $word = ($w1_h << 8) + $w1_l;

Sprich, ich schiebe das high byte 8 Stellen nach links, und setze dann das low byte hinten dran.
Soweit so gut! Aber wenn ich nun zB einen negativen Wert bekommen soll (zB -1), dann wäre mein Wort ja 1111 1111 1111 1111, was laut meiner Anzeige dann natürlich 65535 ist.

Kann mich jemand in die richtige Richtung stupsen? :)
Danke!
- Raubtier
  
  2015-01-06 11:38
  
  User since
  2012-05-04
  1079 Artikel
  BenutzerIn
  
  Naja, kommt drauf an, wie breit der Integer ist. Wenn das erste Bit 1 ist (das Vorzeichen), müsstest du alle Bits davor bis zur Breite des Integers auch auf 1 setzen.
  
  Alternativ einfach mal perlpacktut lesen.
- +17 replies
- rosti
  
  2015-01-06 11:39
  User since
  2011-03-19
  3533 Artikel
  BenutzerIn
  Nimm doch einfach die pack()-Schablone "s" (kleines s steht für A signed short (16-bit) value)
  
  Code (perl): (dl )
  
  1 2
  
  my $bytes = pack "s", -12345; print unpack "s", $bytes;
  - +16 replies
  - monti
    
    2015-01-06 11:48
    
    User since
    2011-08-05
    57 Artikel
    BenutzerIn
    
    Der Haken an der Sache ist, ich weiss nicht, was ich reinbekomme!
    Ich sehe nur das High und Low Byte und weiss nicht, ob der Wert jetzt negativ oder positiv ist!
    Insofern kann ich auch vorher nicht mit pack arbeiten.
    - +15 replies
    - rosti
      
      2015-01-06 11:55
      
      User since
      2011-03-19
      3533 Artikel
      BenutzerIn
      
      2015-01-06T10:48:24 monti
      Der Haken an der Sache ist, ich weiss nicht, was ich reinbekomme!
      Ich sehe nur das High und Low Byte und weiss nicht, ob der Wert jetzt negativ oder positiv ist!
      Insofern kann ich auch vorher nicht mit pack arbeiten.
      
      Du kannst überhaupt nicht arbeiten, wenn Dir zwei Informationen dazu fehlen:
      1) Byte-Order
      2) signed oder unsigned
      
      Die Byte-Order, Big- oder Little-Endian, spielt in dem Moment eine Rolle, wenn die Zahl mit mehr als nur einem Byte codiert ist.
      - +14 replies
      - monti
        
        2015-01-06 11:58
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        Die Byteorder kenne ich. Ich weiss also was high und low byte ist.
        Und signed ist es auch immer.
        
        Alles was ich nicht weiss ist, ob die aktuell zu dekodierende Zahl negativ ist oder nicht.
        
        +5 replies
        
        rosti
        
        2015-01-06 12:09
        
        User since
        2011-03-19
        3533 Artikel
        BenutzerIn
        
        2015-01-06T10:58:56 monti
        Die Byteorder kenne ich. Ich weiss also was high und low byte ist.
        Und signed ist es auch immer.
        
        Alles was ich nicht weiss ist, ob die aktuell zu dekodierende Zahl negativ ist oder nicht.
        
        Code (perl): (dl )
        
        1 2
        
        use bytes; $zahl = unpack "s", $b1.$b2; # Deine 2 Bytes
        
        Danach lässt sich das ja feststellen.
        
        +4 replies
        
        monti
        
        2015-01-06 12:20
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        Über unpack hat er mir jetzt 1248 ausgespuckt. :/
        
        +3 replies
        
        rosti
        
        2015-01-06 12:31
        
        User since
        2011-03-19
        3533 Artikel
        BenutzerIn
        
        Welche Wertigkeiten haben denn Deine beiden Bytes? Gib mal her und dann gucken wir mal ob damit das rauskommt, was Du erwartest.
        
        PS: Die Wertigkeit für ein Byte ermittelst Du mit Schablone "C"
        
        Code (perl): (dl )
        
        my $val = unpack "C", $byte;
        
        Last edited: 2015-01-06 12:36:58 +0100 (CET)
        
        +2 replies
        
        monti
        
        2015-01-06 15:11
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        So, ich habe mal flugs ein Debug eingebaut, damit ich die rohdaten sehe.
        
        high byte: 0x12
        low byte: 0x00
        
        Als Wertigkeit zeigt er mir high 48 udn low 52 an...
        
        Raubtier
        
        2015-01-06 15:43
        
        User since
        2012-05-04
        1079 Artikel
        BenutzerIn
        
        Willst du das hier?
        
        Code (perl): (dl )
        
        perl -E'say unpack("s", "\x00\x12")'
        
        Edit: vielleicht besser, die Order festzulegen. Dann also eins von folgenden beiden:
        
        Code (perl): (dl )
        
        1 2
        
        perl -E'say unpack("v!", "\x00\x82")' perl -E'say unpack("n!", "\x82\x00")'
        
        Last edited: 2015-01-06 15:47:47 +0100 (CET)
        
        +8 replies
        
        Raubtier
        
        2015-01-06 12:46
        
        User since
        2012-05-04
        1079 Artikel
        BenutzerIn
        
        2015-01-06T10:58:56 monti
        Alles was ich nicht weiss ist, ob die aktuell zu dekodierende Zahl negativ ist oder nicht.
        
        Wenn im höherwertigen Byte das "linke" Bit 1 ist, ist die Zahl negativ.
        
        +7 replies
        
        rosti
        
        2015-01-07 10:59
        
        User since
        2011-03-19
        3533 Artikel
        BenutzerIn
        
        2015-01-06T11:46:53 Raubtier
        2015-01-06T10:58:56 monti
        Alles was ich nicht weiss ist, ob die aktuell zu dekodierende Zahl negativ ist oder nicht.
        
        Wenn im höherwertigen Byte das "linke" Bit 1 ist, ist die Zahl negativ.
        
        Genau!
        
        Oder anders ausgedrückt: Wenn die Wertigkeit in diesem Byte >= 128 (dezimal) ist, dann ist der Wertebereich eines 16bit-unsigned Integer überschritten und die Zahl bekommt ein negtives Vorzeichen.
        
        Laut Definition '16bit-signed Integer' ist das höherwertige Byte das zweite von links, das entspricht "VAX" (little-endian) order.
        
        Die Zählung beginnt also im ersten Byte von links und der Übertrag (> 255 dezimal) wird in das rechte Byte geschoben. So können wir uns das bildlich vorstellen.
        
        +6 replies
        
        monti
        
        2015-01-07 12:15
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        Danke für die Hinweise :)
        Gibt es eine Möglichkeit einzelne Bits auszuwerten?
        
        +5 replies
        
        rosti
        
        2015-01-07 12:28
        
        User since
        2011-03-19
        3533 Artikel
        BenutzerIn
        
        2015-01-07T11:15:20 monti
        Danke für die Hinweise :)
        Gibt es eine Möglichkeit einzelne Bits auszuwerten?
        
        Ja freilich: http://rolfrost.de/bitops.html
        
        +4 replies
        
        monti
        
        2015-01-16 09:01
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        Besten dank! Werde mir das genau anschauen und dann einfach das höchste bit auswerten :)
        
        +3 replies
        
        monti
        
        2015-01-24 16:27
        
        User since
        2011-08-05
        57 Artikel
        BenutzerIn
        
        Mit ein bisschen Nachdenken geht es eigentlich ganz einfach.
        
        1. Nachschauen, ob das high byte >128? Dann ist es eine negative Zahl.
        2. Zusammensetzen
        3. Packen und sie zu signed machen
        4. unpacken und zurückgeben.
        5. Problem gelöst :)
        
        Code: (dl )
        
        1 2 3 4 5
        
        if ( $w1_h > 128 ) { $word = ($w1_h << 8) + $w1_l; $word = pack ( 's', $word); $word = unpack( 's', $word); }
        
        rosti
        
        2015-01-24 17:09
        
        User since
        2011-03-19
        3533 Artikel
        BenutzerIn
        
        Hat Dich die Bitmacke endlich gepackt ;)
        Willkommen im Club!!!!
        
        SCNR ;)
        
        FIFO
        
        2015-01-25 14:37
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        2015-01-24T15:27:09 monti
        1. Nachschauen, ob das high byte >128? Dann ist es eine negative Zahl.
        
        >= 128
        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"

View all threads created 2015-01-06 11:28.