2009-06-08 15 views
5

Onaltılık veri sahibim 64 İmzalı Ondalık veriye dönüştürmek zorundayım. Bu şekilde adım attığımı düşündüm. 1.hexadecimal İkili, yerine i nasıl bu bölümü ulaşmak için http://necrobious.blogspot.com/2008/03/binary-to-hex-string-back-to-binary-in.htmlhex to 64 Signed Decimal

bin_to_hexstr(Bin) -> 
    lists:flatten([io_lib:format("~2.16.0B", [X]) || 
    X <- binary_to_list(Bin)]). 

hexstr_to_bin(S) -> 
    hexstr_to_bin(S, []). 
hexstr_to_bin([], Acc) -> 
    list_to_binary(lists:reverse(Acc)); 
hexstr_to_bin([X,Y|T], Acc) -> 
    {ok, [V], []} = io_lib:fread("~16u", [X,Y]), 
    hexstr_to_bin(T, [V | Acc]). 

2.binary onluya bağlantıda verilen kod kullanıyorum kendi kod dönüşümünü yazma.?

veya hexdecimal ulaşmak için başka bir yol -> 64 Signed ondalık veri

teşekkürler şimdiden

cevap

11

Bu işlevler almak erlang:list_to_integer(List, 16). kullanın sadece geri dönüştürmek için erlang:integer_to_list(Int, 16). kullanın onaltılık dizeye bir tamsayı dönüştürmek için 2 ila 36 arası bir çapa inanıyorum.

Eğer bunu Sessizleştirme yapmak için liste türetimi kullanabilirsiniz onaltılık dizeleri ve gelen ikilileri dönüştürmek isterseniz:

bin_to_hex(Bin) -> [ hd(erlang:integer_to_list(I, 16)) || <<I:4>> <= Bin ]. 
hex_to_bin(Str) -> << << (erlang:list_to_integer([H], 16)):4 >> || H <- Str >>. 

64 bitlik işaretli tam sayı içeren bir onaltılık dize bir tamsayı dönüştürmek için, şimdi can yapmak:

Int = 1 bsl 48, HexStr = bin_to_hex(<<Int:64/signed-integer>>), 
Bin = hex_to_bin(HexStr), <<RoundTrippedInt:64/signed-integer>> = Bin, 
Int =:= RoundTrippedInt. 
+0

teşekkürler beri bu onaltılık değer 3fc2d175e1028b9a için, php im yazı kodu onun 4594464874087746458 64 olarak ondalık değer veren ama eğer Ne yaptığınız ile aynı şeyi yaptıktan sonra hex_to_bin (Str) -><< << (erlang: list_to_integer ([H], 16)): 4 >> || H <- Str >>. , << 63,194,209,117,225,2,139,154 >> değerini veriyor. Bu nedenle, bunun için herhangi bir açıklama yapmayın. – Abhimanyu

+0

<> = hex_to_bin ("3fc2d175e1028b9a"), I =: = 4594464874087746458. - Yalnızca ikilide bir tamsayıyı erlang olarak çevirmeniz yeterlidir (<< numbers >> gösterimi bir ikili gösterir). – archaelus

0

Bu yaklaşımdan ne haber? senin answer..its i, bir daha şüphem yok need..but ne çok iyi explaination için

hex2int(L) -> 
    << I:64/signed-integer >> = hex_to_bin(L), 
    I. 

int2hex(I) -> [ i2h(X) || <<X:4>> <= <<I:64/signed-integer>> ]. 

hex_to_bin(L) -> << <<(h2i(X)):4>> || X<-L >>. 

h2i(X) -> 
    case X band 64 of 
     64 -> X band 7 + 9; 
     _ -> X band 15 
    end. 

i2h(X) when X > 9 -> $a + X - 10; 
i2h(X) -> $0 + X. 
İlgili konular