Поставил перед собой задачу написать плагин, который будет выгружать скриншоты на Яндекс.Диск
Упёрся в проблему с выгрузкой, а именно при попытке залить уже существующий скриншот возвращается правильный ответ с кодом 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);
