Integer zu Byte (gelöst) (Allgemeines zu Perl)

[thread]17654[/thread]

Integer zu Byte [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
maart

2012-08-11 09:25
User since
2012-08-01
11 Artikel
BenutzerIn
Hallo,

wie kann ich die folgende Java-Funktion in Perl umsetzen:
Code: (dl )

1 2 3 4 5 6 7 8

public static void writeInt(byte[] var0, int var1, int var2) { var0[var1] = (byte)(var2 & 255); var2 >>= 8; var0[var1 + 1] = (byte)(var2 & 255); var2 >>= 8; var0[var1 + 2] = (byte)(var2 & 255); var2 >>= 8; var0[var1 + 3] = (byte)(var2 & 255);
Das resultierende Byte-Array benötige ich für eine PUT-Methode.

Danke für die Hilfe.

Gruß
maart
- +3 replies
- Molaf
  
  2012-08-11 11:35
  
  User since
  2007-10-11
  119 Artikel
  BenutzerIn
  
  Hallo,
  
  bitweise & mit 255 ? Macht das Sinn ?
  - +2 replies
  - tonewheel
    
    2012-08-11 12:38
    
    User since
    2006-10-01
    182 Artikel
    BenutzerIn
    
    2012-08-11T09:35:33 Molaf
    Hallo,
    
    bitweise & mit 255 ? Macht das Sinn ?
    
    Natuerlich. Es ist ja nicht bitweise, sondern er rotiert immer 8 Bit. Somit holt er ein 4 Byte grosses int aufgesplittet in ein Array of bytes.
    - Molaf
      
      2012-08-11 19:11
      
      User since
      2007-10-11
      119 Artikel
      BenutzerIn
      
      Oh verdammt, das Schieben hab ich nicht mehr gesehen...
- FIFO
  
  2012-08-11 13:17
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  
  Perl kennt den Datentyp 'byte' nicht, ein "Byte-Array" kannst Du also so nicht einfach herstellen.
  Wenn Du ein Perl-Array (aus Skalaren) bilden willst, die die einzelnen Bytes/Octets Deines 32bit-Integers als Elemente haben, nimmst Du unpack():
  
  Code (perl): (dl )
  
  1 2
  
  my $int = 12345678; my @bytes = unpack('CCCC', pack('N', $int));
  
  In $array[0] steht das höchstwertige Byte. Soll die Byte Order umgekehrt sein, mach das pack mit 'V'.
  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"
- topeg
  
  2012-08-11 13:24
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  sub writeInt { my $array=shift; my $pos=shift; my $value=shift; @array[$pos..$pos+3]=unpack('C*',pack('N',$val1)); }
  
  Aufruf:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @array; my $pos=16; my $val=10; writeInt(\@array,$pos,$val);
- maart
  
  2012-08-11 15:42
  
  User since
  2012-08-01
  11 Artikel
  BenutzerIn
  
  Hallo,
  
  Danke euch allen für die Hilfe. Mit den Anmerkungen und den Beispielen konnte ich jetzt alles verstehen und umsetzen.
  
  Danke
  maart

View all threads created 2012-08-11 09:25.