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

JuMi2006

2012-09-17 22:49

User since
2012-09-17
8 Artikel
BenutzerIn
[default_avatar]

Wo ist hier eure Spendenbox?

Hammer...das funktioniert ;)

Darf ich noch einen ranhängen? Es geht um BCD mit dem Beispiel für eine Berechnung:

y= dez(High_Nibble(x)) *10 + dez(Low_Nibble(x))

Das decoding hab ich so gelöst:

Code: (dl )

1
2
3

sub decode_bcd {
    return (unpack "H*", pack "C*",hex($_[0]));
}

Ich hatte da schonmal was fürs Encoding aber das hat ab einem bestimmten Wert nicht mehr gestimmt.

Danke JuMi2006