Discussion :

[Joccy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Joccy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Joccy]

merci