Hex to signed Integer (1/256) - #161886 (Allgemeines zu Perl)

Muffi

2012-09-18 08:07

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Ich glaub ich hab nen Einzeiler:

Code (perl): (dl )

sub decode_d2b { return unpack("s", pack("s", hex($_[0].$_[1]))) / 256; }

Falls ichs richtig gesehn hab ist das ein normaler signed shortint / 256

[EDIT] den encode dazu wird man wohl ähnlich basteln können, aber da gibts bestimmt Leut im Forum, die bei pack/unpack weniger planlos rumstöpseln als ich ;)

[EDIT2]
So ungefähr könnt der encode ausschaun.

Code (perl): (dl )

my ($lb, $hb) = unpack("H[2]H[2]", pack("s", $num * 256));

Last edited: 2012-09-18 08:58:07 +0200 (CEST)

1 + 1 = 10