On Thursday 22 March 2001 02:34 pm, Wojtek wrote:
> How to unpack Int32 from Palm (Motorola - big-endian) in Perl?
> What kind of notation is it?
# 16-bit
$header{'attributes'} = unpack("n*", substr($hdrtxt, 32, 2));
# 32-bit
$header{'createdate'} = unpack("N*", substr($hdrtxt, 36, 4));
And back again..
substr($hdrtxt, 32, 2) = pack("n*", $header{'attributes'});
substr($hdrtxt, 36, 4) = pack("N*", $header{'createdate'});
--
/* Chris Faherty <[EMAIL PROTECTED]> */
_______________________________________________
Pilot-unix mailing list
[EMAIL PROTECTED]
http://hcirisc.cs.binghamton.edu/mailman/listinfo/pilot-unix
