[Perl] Формирование строки (HEX)

[Sinot]

Приветствую всех!

Мне нужно получить строку вида:

Код:

my $login = "\x02\x00\x05\x00\x53\x00\x69\x00\x6e\x00\x6f\x00\x74";

Первые два символа ("\x02\x00") я выбираю сам,
третий символ ("\x05") - количество оставшихся символов,
а оставшиеся символы ("\x00\x53\x00\x69\x00\x6e\x00\x6f\x00\x74"), полученные в ходе выполнения скрипта - некая строка в UTF8 (в данном случае "Sinot").

Собственно вопрос в том, как эту строку сформировать?
Или по другому: как преобразовать

Код:

my $a = "Sinot"; в my $b = "\x00\x53\x00\x69\x00\x6e\x00\x6f\x00\x74"; и my $c = 5; в my $d = "\x05";

Спасибо.

P.S. $login в таком виде полетит на сервер через IO::Socket::INET (TCP).

[drBatty]

полученные в ходе выполнения скрипта - некая строка в UTF8 (в данном случае "Sinot").

"\x00\x53\x00\x69\x00\x6e\x00\x6f\x00\x74";

это UTF-16 ващето.

[NickLion]

Вроде то, что надо?

Код: Выделить всё

nicklion@warlock:~> perl -e 'use Encode qw/encode/;$a="Sinot";$c=length $a; print "\x02\x00" . chr( $c ) . encode("UTF-16BE", $a)' | hexdump -C
00000000  02 00 05 00 53 00 69 00  6e 00 6f 00 74           |....S.i.n.o.t|
0000000d

[Sinot]

это UTF-16 ващето.

А ведь точно! Позор мне.

Вроде то, что надо?

Да! Спасибо большое.