🚀 go-pugleaf

Kamil D. wrote:

> Witam!
> 
> Czy ktoś z Was wie może jak zastąpić:
> 
> unpack('Vtype/Vsize/Vkey', $data);
> pack('VVVVVVVv', GG_LOGIN, 0x16, $uid, $this->_loginHash($password,
> (int)$aData['key']),
> 
> (http://anakin.us/phplibgadu.phps)
> 
> na TCLowe odpowiedniki? Nie bardzo rozumiem funkcji binary (bo o nią
> chodzi?) i mi to nie idzie..
> 
> Pozdrawiam
> 


pack i unpack są mniej więcej odpowiednikami 'binary format' i 'binary
scan', tylko oczywiście inaczej się ich używa.

Podam Ci przykład użycia binary format i scan, a resztę mam nadzieję że
wymyślisz z manuala Tcl (
http://www.tcl.tk/man/tcl8.4/TclCmd/binary.htm ):

1. Konwersja stringa na kod ascii:

binary scan $string c* asciiVariable
puts $asciiVariable

2. Konwersja odwrotna (z ascii do stringa):

puts [binary format c* $asciiString]


Musisz przetłumaczyć sobie odpowiednie parametry z
http://pl2.php.net/pack (chodzi o literki i ich typy danych) na
odpowiednie parametry z
http://www.tcl.tk/man/tcl8.4/TclCmd/binary.htm .

-- 
Pozdrawiam (Regards)!
Googie