SZ
И отправляй $bytes
use Encode "decode";
my $bytes = decode('UTF-8' => $str);Size: a a a
2020 July 15
МК
decode
$string = decode(ENCODING, OCTETS[, CHECK])
SZ
decode
$string = decode(ENCODING, OCTETS[, CHECK])
Ну и?
МК
Не сработало
SZ
Не сработало
Как ты это понял? :Р
МК
Чуйка, веб-служба не выдала ожидаемый ответ
МК
Для Java клиента работает, для Perl не 😐
SZ
А как ты отправляешь из перла?
МК
А как ты отправляешь из перла?
my $Request = HTTP::Request->new( POST => $Link );
$Request->header( 'content-type' => 'application/octet-stream' );
$Request->content($bytes);
$UA->request($Request);МК
LWP простой
SZ
my $Request = HTTP::Request->new( POST => $Link );
$Request->header( 'content-type' => 'application/octet-stream' );
$Request->content($bytes);
$UA->request($Request);А java тебе charset не выставляет в content type?
Ну и для lwp наоборот нужен encode, а не decode, т.к. lwp всё пытается интерпретировать как латин1 если не очевидно обратного.
Ну и для lwp наоборот нужен encode, а не decode, т.к. lwp всё пытается интерпретировать как латин1 если не очевидно обратного.
SZ
$UA->post($Link,
'Content-type' => 'application/octet-stream;charset=utf-8',
Content => encode_utf8($utf8_str)); типа тогоМК
А java тебе charset не выставляет в content type?
Ну и для lwp наоборот нужен encode, а не decode, т.к. lwp всё пытается интерпретировать как латин1 если не очевидно обратного.
Ну и для lwp наоборот нужен encode, а не decode, т.к. lwp всё пытается интерпретировать как латин1 если не очевидно обратного.
Не, только байты
МК
$UA->post($Link,
'Content-type' => 'application/octet-stream;charset=utf-8',
Content => encode_utf8($utf8_str)); типа тогоНе пошло
SZ
Не пошло
Ты можешь сравнить дамп запроса от джавы и перла?
МК
Самого запроса нет, строки да
SZ
Самого запроса нет, строки да
Джава и перл на одной машине?
МК
МК
К серверу доступа нет
SZ
К серверу доступа нет
Может попробовать тогда http::message? Он там использует upgrade/downgrade