Size: a a a

2021 March 10

AP

Anton Petrusevich in Modern::Perl
Denis F
Да сам в шоке. Курл нормально работает,  свой хитрый клиент тоже,  а чистый lwp глючит
Ты забыл код показать
источник

DF

Denis F in Modern::Perl
Sergey Zhmylove
Ну во-первых, он сохраняет файл только по пинку, а во-вторых там есть автосейв (вызывается из деструктора)
Файл то пофиг вообще,  он между запросами куки не обновляет,  вот в чем проблема. Сохраняет ку-ку от первого запроса, а на то,  что ему прилетает в следующих ему похер
источник

DF

Denis F in Modern::Perl
Vyacheslav Olkhovchenkov
ну и эта, пример нработающего кода где?
Попозже скину,  я переделал все на курл в пайпе пока.  Вечером буду дебажить lwp и скину код
источник

AP

Anton Petrusevich in Modern::Perl
Denis F
Попозже скину,  я переделал все на курл в пайпе пока.  Вечером буду дебажить lwp и скину код
ты не проинитил параметр
источник

DF

Denis F in Modern::Perl
Anton Petrusevich
ты не проинитил параметр
в смысле?
источник

AP

Anton Petrusevich in Modern::Perl
Denis F
в смысле?
я ж говорю, покажи код
источник

AP

Anton Petrusevich in Modern::Perl
my $ua = LWP::UserAgent->new(
   cookie_jar => {},
   conn_cache => LWP::ConnCache->new,
   agent =>
     "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Ubuntu Chromium/64.0.3282.167 Chrome/64.0.3282.167 Safari/537.36"
);
источник

AP

Anton Petrusevich in Modern::Perl
вот как у меня инициализируется лвп, чтобы куки были, кеш соединений, ну и ты понял дальше :)
источник

AP

Anton Petrusevich in Modern::Perl
cookie_jar => {}, — сессионные куки, в файл не сохраняеются
источник

DF

Denis F in Modern::Perl
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $cookie_jar = HTTP::Cookies->new( file => 'cookie.txt', autosave => 1, ignore_discard => 1 );
$ua->cookie_jar( $cookie_jar );

Но в целом пофиг как инитить, что с файлом, что с пустым хешем эффект одинаковый
источник

AP

Anton Petrusevich in Modern::Perl
странно, странно... показывай воспроизводимый код... :)
источник

DF

Denis F in Modern::Perl
падажжи, я уже все сломал и пока другим делом занимаюсь :)
источник

AP

Anton Petrusevich in Modern::Perl
бывает, бывает... :)
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $cookie_jar = HTTP::Cookies->new( file => 'cookie.txt', autosave => 1, ignore_discard => 1 );
$ua->cookie_jar( $cookie_jar );

Но в целом пофиг как инитить, что с файлом, что с пустым хешем эффект одинаковый
У меня работает этот пример и с пустым хешем тоже. Посмотри у своего результата поле _headers, есть ли там нужный set cookie вообще
источник

SZ

Sergey Zhmylove in Modern::Perl
И кука в файле естественно обновляется
источник
2021 March 11

DF

Denis F in Modern::Perl
Sergey Zhmylove
У меня работает этот пример и с пустым хешем тоже. Посмотри у своего результата поле _headers, есть ли там нужный set cookie вообще
судя по всему, оно работает у всех кроме меня :)
https://gist.github.com/alpha6/2fdc8b19cb6c48a4f09b31ce9f75a0a9
источник

SZ

Sergey Zhmylove in Modern::Perl
По-моему, всё дело в том, что ты сам делаешь http::request, а не делаешь его средствами лвп, в результате чего не вызываются хандлеры prepare request. Я сейчас не у компа, это только домыслы и надо подумать над этим дольше одной минуты, ... Завтра :)
источник

AP

Anton Petrusevich in Modern::Perl
не, это не должно влиять
источник

SZ

Sergey Zhmylove in Modern::Perl
А вот пусть попробует add_cookie_header вручную дернуть на каждый свой запрос
источник

SZ

Sergey Zhmylove in Modern::Perl
И тогда узнаем :)
источник