Доброе утро коллеги.
У меня неболшая проблемка с кодировками - помогите кто чем может пожалуйста.
Суть: Есть виндовый клиент, который ходит по http на перл.
Контент кодируется/декодируется.
Вообщем когда перл отдает контент, то клиент принимает некорректные данные (некоторые байты в строке меняются).
Вообщем по коду:
warn join(",", map { unpack 'H*', $_} split('', $encrypted_text));
# 7B,2C,EF,7C,C7,21,C2,58,B8,F0,34,34,E9,B0,12,DB,7B,2C,EF,7C,C7,21,C2,58,B8,F0,34,34,E9,B0,12,DB
( это верная последовательность байт которую перл показывает в консоле)
Теперь отдаю:
# Result 1 (received remotely)
$self->render(inline => $encrypted_text );
# 7B,2C,C3,AF,7C,C3,87,21,C3,82,58,C2,B8,C3,B0,34,34,C3,A9,C2,B0,12,C3,9B,7B,2C,C3,AF,7C,C3,87,21,C3,82,58,C2,B8,C3,B0,34,34,C3,A9,C2,B0,12,C3,9B,0A
( эта последовательность, которую получил клиент)
# Result 2 (received remotely)
$self->render(inline => decode("UTF-8", $encrypted_text ) );
# 7B,2C,EF,BF,BD,7C,EF,BF,BD,21,EF,BF,BD,58,EF,BF,BD,EF,BF,BD,34,34,EF,BF,BD,12,EF,BF,BD,7B,2C,EF,BF,BD,7C,EF,BF,BD,21,EF,BF,BD,58,EF,BF,BD,EF,BF,BD,34,34,EF,BF,BD,12,EF,BF,BD,0A
( эта последовательность, которую получил клиент - вариант второй)
Есть хоть какие нибудь идеи как вернуть нужную последовательность?
PS: закодированное сообщение "12345678123456781234567812345678"
