E>>>Нууууууу... Я вообще не представляю, как можно делать нормальную сериализацию без внешних описаний

01 -- тип данных Array
03 -- его длина в элементах.
 -- Начинаются элементы массива.
 02 -- тип данных Symbol или Atom (в зависимости от языка).
 05 -- его длина.
   48 45 4C 4C 4F -- Hello -- его значение.
 03 -- тип данных Integer.
 01 -- его длина.
   10 -- его значение.
 04 -- тип данных String.
 03 -- его длина.
   42 79 65 -- Bye -- его значение.

irb(main):007:0> data = deserialize(stream)
=> [:HELLO, 22, "Bye"]
irb(main):008:0> str = data[2]
=> "Bye"

process_data({_,_,S}) -> ...какая-то обработка...
process_data(_) -> ...обработка неподходящих по формату данных...

receive_and_process_data(source) ->
  S = receive_data(source),
  D = deserialize_data(S),
  process_data(D).

03 -- Длина массива в элементах.
 -- Начинаются элементы массива.
 05 -- Длина первого элемента.
   48 45 4C 4C 4F -- Hello -- его значение.
 10 -- Второй элемент.
 03 -- Длина третьего элемента.
   42 79 65 -- Bye -- его значение.

process_data({_,_,S}) -> ...какая-то обработка...
process_data(_) -> ...обработка неподходящих по формату данных...

E>>PS. Гена, писал вроде ответ тебе, а получился ответ для gandalfgrey

player_data = deserialize(data)
name = player_data[ 0 ]
position = player_data[ 4 ]
puts "player #{name} is on #{position}"

ГВ>Да собственно говоря, никаких самоописаний не бывает в природе.

T={crysis,[{salary,low},{employers,10},{panic,yes}],2008}.

B=term_to_binary(T).

B.
<<131,104,3,100,0,6,99,114,121,115,105,115,108,0,0,0,3,104,2,100,0,6,115,97,
  108,97,114,121,100,...>>

binary_to_term(B).
{crysis,[{salary,low},{employers,10},{panic,yes}],2008}

E>PS. Гена, писал вроде ответ тебе, а получился ответ для gandalfgrey

calc_mid(L)->calc_mid(L,fun(X)->abs(X) end).

calc_mid([],_)->0;
calc_mid(L,F)->
    lists:foldl(fun(X,A)->A+F(X) end,0,L)/ length(L).

------------------------------------------
calc_mid([1,3,4.2,6]).
работает

calc_mid([{3.1,5},{-2,0},{5.5,2}],fun({X,Y})->math:sqrt(X*X+Y*Y) end).
тоже работает

E>Некорректная. У каждого семейства языков есть свой набор правил и идиом, с которыми нужно смирится и воспринимать их как данность. В общем -- в каждом монастыре, свой устав и со своим туда лучше не лезть

[...] серверная часть :
— находится в 120 км от ближайшего диспетчерского пункта ( телнета там нет )
— доступ к серверу оформляется через 6 бумажек и месяц ожидания
— сервер просто замурован в будку с подогревом
— и апофеоз всего — никто просто не знает, где же он находится физически
Напоминаю — телнета НЕТ. ( по причинам безопасности в основном ). Или доступ через SSH открывают по официальному запросу
Мораль — клиент меняется, сервер — нет. И как тут быть с изменением структур ?

ГВ>>Хех. Новые данные требуют новых программ для их обработки, не правда ли?

loop(Algs)->
  receive
    {Data,F}->
      F(Data),
      loop(insert_alg(Algs,get_tag(Data),F));

    {Data,{once,F}}->
      F(Data),
      loop(Algs);

    {Data}->
      F1=get_alg(Algs,get_tag(Data)),
      F1(Data),
      loop(Algs)

  end.

G>      loop(insert_alg(Algs,get_tag(Data),F));
G>      F1=get_alg(Algs,get_tag(Data)),
G>

class pdu_t : public <здесь какой-то базовый класс, навязанный системой сериализации>
  {
  public :
    pdu_t(
      // Идентификатор типа PDU.
      const pdu_type_id_t & pdu_id )
      : m_pdu_id( pdu_id )
      {}

    const pdu_type_id_t
    pdu_id() const { return m_pdu_id; }
    ...
  private :
    pdu_type_id_t m_pdu_id;
  };

class apply_new_factor_pdu_t : public pdu_t
  {
  public :
    float x_factor() const { ... }
    float y_factor() const { ... }
  ...
  };

class change_speed_and_acceleration_pdu_t : public pdu_t
  {
  public :
    speed_t speed() const { ... }
    acceleration_t acceleration() const { ... }
    duration_t acceleration_duration() const { ... }
  ...
  };
...

std::auto_ptr< pdu_t > pdu( deserialize_data( in_stream ) );
pdu_processor_t * processor = get_processor( pdu->pdu_id() );
if( processor )
  processor->process( *pdu );

class pdu_processor_t
  {
  public :
    virtual ~pdu_processor_t();
    virtual const pdu_type_id_t &
    pdu_id() const = 0;
    virtual void
    process( const pdu_t & pdu ) = 0;
  };

class new_factor_pdu_processor_t : public pdu_processor_t
  {
  public :
    ...
    virtual void
    process( const pdu_t & pdu )
      {
        // В принципе, здесь лучше было бы использовать dynamic_cast, но
        // в моем механизме subclassing_by_extension нельзя использовать
        // множественное наследование. Поэтому достаточно и static_cast.
        const new_factor_pdu_t & cmd = static_cast< const new_factor_pdu_t & >( pdu );
        setup_new_x_factor( cmd.x_factor() );
        setup_new_y_factor( cmd.y_factor() );
      }
  };

{ok,Bin}=file:read_file("settings")