Codage en bytes

Bonjour,

je dois récupérer des messages et les decoder. Le header est composé de 5 octets:
- le type sur un octet
- l'id sur deux octets
- la length sur deux octets.

Voila j'essaye d'utiliser la fonction unpack mais je n'y arrive pas:

Code:

---

1 2 3 4

#pour l'id par exemple $expr = substr($msg,1,2); # position 1 et sur 2 octets $transac_id = unpack("c",$expr);

---

Quelqn'un peut il m'aider et me dire ce qui ne va pas ?
Merci beaucoup !

J'ai trouvé (grace au C)!
le unpack() renvoie une liste :

Code:

---

1 2 3 4 5

#pour l'id par exemple $expr = substr($msg,1,2); # position 1 et sur 2 octets @transac_id = unpack("c2",$expr); my $id = $transac_id[0]*256 + transac_id[1];

---

Voila

A quoi bon utiliser unpack() si c'est pour faire la même chose que ord()...
Plus simple :

Code:

---

my ($type, $id, $len) = unpack( 'ann', $msg );

---

Cf "perldoc -f pack" pour la description des templates.
--
Jedaï

merci