Как подружить Perl LWP и заголовок Expect: 100-continue?

Question

[KPEBETKA]

Поставил перед собой задачу написать плагин, который будет выгружать скриншоты на Яндекс.Диск
Упёрся в проблему с выгрузкой, а именно при попытке залить уже существующий скриншот возвращается правильный ответ с кодом 201, а при попытке залить новый скриншот возвращается ответ с кодом 500

У меня два варианта:
1. LWP некорректно работает с Expect: 100-continue
2. Я неправильно формирую запрос

my $content = do { open my $fl,'<:raw',$upload_filename; local $/; <$fl>; };
my $req = HTTP::Request->new( PUT => $url, undef, Content => $content );
$req->header( "Accept" => "*/*" );
$req->header( "Authorization" => "OAuth $token" );
$req->header( "Etag" => "$md5file" );
$req->header( "Sha256" => "$sha256file" );
$req->header( "Expect" => "100-continue" );
$req->header( "Content-Type" => "application/binary" );
$req->header( "Transfer-Encoding" => "chunked" );
my $res = $ua->request($req);

Comments

[vsespb]

так это.. хорошо бы print $res->dump увидеть.

Answer 1

[KPEBETKA]

Баш мне не нужен, я плагин для Shutter пишу. Соответственно нужен только перл.
Впринципе после изучения выяснилось что если есть и данные и Expect, то запрос целиком отправляется на сервер и заголовок с 100-м ответом считывается только когда данные уже отправлены. Это приводит к deadlock'у, ибо сервер ждет что считают ответ Expect от него.
Отдельно с отправкой заголовка тоже работать не будет - он сразу после 100-го ответа ждет следующий

Есть два варианта:
1. Написать с использованием HTTP:DAW
2. Сделать через сокеты, без wwwlib'а

Первый вариант простой, но не будет OAuth - авторизации
Второй вариант для меня сложен, но буду разбираться

Comments

[pcdesign]

Ну запускайте баш скрипт через system в перле. Если посмотреть исходники HTTP:DAV , там в конечном итоге тоже самое.

[vsespb]

@pcdesign, а ничего что это потом в народе будут называть г**кодом и костылём. внешний процесс запускать для http запроса это уж черес чур. ещё expect по дефолту не во всех linux установлен.

[pcdesign]

С новым годом! :)

А кто придумывает эти критерии? Где говнокод и где костыль?
И судьи кто?

Я смотрю на книжную полку с книгами по перл, и не могу припомнить, чтобы системные вызовы где-то называли злом или говнокодом.

Единственное, что рекомендует делать перл-критик - это запускать их через:
IPC::Open3::Utils