einzelne Bytes in Perl (gelöst) - #154294 (Netzwerkprogrammierung und Netzwerke mit Perl)

campbell-bs

2011-11-18 11:19

User since
2011-11-17
23 Artikel
BenutzerIn
[default_avatar]

Also ein bisschen was habe ich hinbekommen, aber irgendwie scheiter ich dann bei der Übertragung.
Ich habe in C (hoffe ihr hab damit schonmal ein bisschen was gemach) z.B. folgendes Struct:

Code: (dl )

typedef struct test
{
 uint8t zahl1;
 uint16_t zahl2;
 int32_t zahl3;
 uint8t zahl1;
};

Jetzt erwartet meine Gegenstelle genau so eine Struktur mit genau den angegeben Bytes, ansonsten gibt es Fehler. Ich finde aber kein Int mit einem Byte. Dort habe ich mir jetzt so geholfen, das scheint auch zu funktionieren:

Code: (dl )

1
2

my $zahl1 = sprintf("%x",100);
print SOCKET pack("H*", $zahl1);

Nur wie setze ich dies jetzt mit größeren Integertypen um?

2. Frage:
Wenn ich jetzt ein int mit 4 Bytes habe, wie kann ich dies Byteweise auseinander nehmen und in ein Bytearray schreiben?

Wäre echt super, wenn ihr mir helfen könntet.

Danke