alle byte im 32Bit vertauschen (Allgemeines zu Perl)

[thread]18812[/thread]

alle byte im 32Bit vertauschen

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+12 replies
Gast piet

2013-12-19 18:20

Hallo,

ich benötige die schnellste Form, um die bytes in einem 32 Bit Wert zu vertauschen.

32 Bit PC = Byte 32 10
benötigt = Byte 01 23

Ich würde jetzt alle

$byte0 = $messwert & 0x000000FF;
$byte1 = $messwert & 0x0000FF00;

usw. und wieder zusammen setzen.

Gibt es nicht's kürzeres und schnelleres ??

Gruß
piet
Last edited: 2013-12-19 18:29:43 +0100 (CET)
- Linuxer
  
  2013-12-19 18:39
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Schau Dir mal perlfunc pack und perlfunc unpack an.
  
  Code (perl): (dl )
  
  1 2 3
  
  my $i = "\x32\x10"; printf "%02x\n", unpack('n', $i); # 3210 printf "%02x\n", unpack('v', $i); # 1032
  
  edit; ich erkenne gerade, dass dies für Deinen Zweck nicht ausreicht. Sorry, hab ich gestern übersehen.
  Last edited: 2013-12-20 09:33:41 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Raubtier
  
  2013-12-19 18:42
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  Das sieht mir eher nach einem 16-bit Wert aus... Was machst du mit den anderen 16 Bit?
- Gast R.
  
  2013-12-19 18:48
  Code (perl): (dl )
  
  sub swap_bytes { shift; pack(q{v*},unpack(q{n*},$_)) }
  
  Last edited: 2013-12-19 18:55:17 +0100 (CET)
- hlubenow
  
  2013-12-19 20:09
  
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  
  Wenn einem Perl zu langsam ist, würde ich grundsätzlich empfehlen, es in C zu schreiben.
- +7 replies
- GwenDragon
  
  2013-12-20 08:32
  
  User since
  2005-01-17
  14787 Artikel
  Admin1
  
  Guest piet
  32 Bit PC = Byte 32 10
  benötigt = Byte 01 23
  
  Da werden aber auch die Nibble (Halbbyte) getauscht, nicht nur die Bytes.
  Wie solls denn nun sein?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - Muffi
    
    2013-12-20 09:47
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ich glaub er meinte mit 32 nicht 2 Nibble, sondern sowas wie Byte Index 3 und Byte Index 2.
    1 + 1 = 10
    - +5 replies
    - Gast piet
      
      2013-12-28 22:49
      
      Hallo,
      
      vielen Dank für die schnelle Hilfe.
      
      Hier nochmals mein Problem.
      
      Ich habe eine 32 Bit Zahl ... also 4 Byte (0..3)
      
      z.B.
      Byte 3210
      
      als Ergebnis soll ein Byte und Wort-Tausch statfinden
      
      Byte 0123
      
      Was ich bei pack/unpack gelesen habe funktioniert der Worttausch nicht, oder ?
      
      Gruß
      piet
      Last edited: 2013-12-28 22:50:54 +0100 (CET)
      - +4 replies
      - hlubenow
        
        2013-12-28 23:32
        
        User since
        2009-02-22
        876 Artikel
        BenutzerIn
        
        Guest piet
        Ich habe eine 32 Bit Zahl ... also 4 Byte (0..3)
        
        z.B.
        Byte 3210
        
        Bin nicht sicher, ob ich Dich richtig verstehe: Ein Byte sind 8 Bit, also maximal "11111111", das sind
        
        - ein 1er,
        - ein 2er,
        - ein 4er,
        - ein 8er,
        - ein 16er,
        - ein 32er,
        - ein 64er und
        - ein 128er.
        
        Macht zusammen 255. Ein Byte kann also Zahlen von 0 bis 255 darstellen.
        Eine 32Bit-Zahl in 4 Bytes wäre dann maximal
        
        255 255 255 255
        
        nicht 3210.
        
        Guest piet
        Byte 3210
        
        als Ergebnis soll ein Byte und Wort-Tausch statfinden
        
        Byte 0123
        
        So vielleicht?
        
        Code (perl): (dl )
        
        1 2
        
        my $word = "3210"; print reverse($word) . "\n";
        
        +3 replies
        
        Gast piet
        
        2013-12-29 00:33
        
        Hallo,
        
        ich hoffe ich habe mich richtig augedrückt.
        
        Ich habe eine 32 Bit Zahl ... also 4 Byte (0..3)
        
        z.B.
        Byte 3210... das ist nicht der Wert des Bytes sondern die Anzahl der Bytes
        pro Doppelwort. (32 Bit)
        
        Eine 32 Bit Zahl hat 4 Byte also von Byte 0 bis Byte 3
        
        Wie schon geschrieben möchte ich die
        
        alt-Byte 3210 - > neu-Byte 0123
        
        Byte 3 soll an die Stelle von Byte 0
        Byte 2 soll an die Stelle von Byte 1
        Byte 1 soll an die Stelle von Byte 2
        Byte 0 soll an die Stelle von Byte 3
        
        Gruß
        piet
        Last edited: 2013-12-29 01:34:12 +0100 (CET)
        
        +2 replies
        
        Linuxer
        
        2013-12-29 02:27
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Du hast also einen 4-Byte großen Wert, und Du willst die Reihenfolge der Bytes umkehren?
        Da sind perlfunc pack und perlfunc unpack immer noch die Tools der Wahl. Siehe auch perlpacktut.
        Und da es Verwendung findet, auch noch: perlfunc reverse
        
        Vorschlag:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        #! /usr/bin/env perl use strict; use warnings; # 32bit data my $buf = 0x12345678; # reverse byte order in 32bit value my $buf2 = unpack( 'L', reverse pack L => $buf ); # show me the bytes in hex: my $FORMAT = ( "%02x " x 4 ) . "\n"; printf $FORMAT, unpack( "W*", pack L => $buf ); printf $FORMAT, unpack( "W*", pack L => $buf2 ); __END__ Output: 78 56 34 12 12 34 56 78
        
        Achtung: Vielleicht bringen andere Benutzer noch eine andere oder bessere Lösung. Ich nutze pack/unpack selbst recht selten.
        Last edited: 2013-12-29 17:24:10 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gast piet
        
        2014-12-30 19:31
        
        Hallo,
        
        das sieht gut aus. Ich muss es noch prüfen, gebe aber Rückmeldung.
        
        Gruß
        piet
        Last edited: 2014-12-30 19:37:55 +0100 (CET)

View all threads created 2013-12-19 18:20.