Size: a a a

2021 March 11

AP

Andrei Protasovitski in Modern::Perl
Venom1 2
жесть, после db->do("sql", $val->{id}) становится строкой
Я не знаю, DBD это или DBI, у меня из мускула все значения строками приходят. Я потом им делаю $id = 0 + $id;, иначе потом в тот же JSON туго уходит.
источник

И

Игорь in Modern::Perl
👍 Подтверждаю. У меня он как и  родной JSON::PP в данном примере не изменил тип у $h->{one} после сравнения через eq. Спасибо за подсказку, не знал про этот модуль.
источник

И

Игорь in Modern::Perl
Игорь
👍 Подтверждаю. У меня он как и  родной JSON::PP в данном примере не изменил тип у $h->{one} после сравнения через eq. Спасибо за подсказку, не знал про этот модуль.
Еще Cpanel::JSON::XS в плюсы:

perl -MCpanel::JSON::XS -wle'print Cpanel::JSON::XS->new->allow_nonref(1)->encode(!0)'
true
perl -MJSON::PP -wle'print JSON::PP->new->allow_nonref(1)->encode(!0)'
1
perl -MJSON::XS -wle'print JSON::XS->new->allow_nonref(1)->encode(!0)'
"1"
источник

AP

Anton Petrusevich in Modern::Perl
Andrei Protasovitski
Я не знаю, DBD это или DBI, у меня из мускула все значения строками приходят. Я потом им делаю $id = 0 + $id;, иначе потом в тот же JSON туго уходит.
это драйвер мыскуля поди. там всё так...
источник

AP

Anton Petrusevich in Modern::Perl
для предсказуемости типов в джейсоне лучше пользоваться джейсон-схемами, которые умеют типы как надо ставить.
источник

AP

Anton Petrusevich in Modern::Perl
но я что-то устал уже в 30й раз это повторять...
источник

P

Pavel in Modern::Perl
mr bbon
Люди, а как часто вы наступаете на эти самые грабли? https://perlbanjo.com/2097c455e2
Эх, спать пора
my $x = grep ($_ eq 'a', @a) ? 'yes' : 'no';
print $x, "\n";
источник

P

Pavel in Modern::Perl
Denis F
Да сам в шоке. Курл нормально работает,  свой хитрый клиент тоже,  а чистый lwp глючит
my $cookie_jar = HTTP::Cookies->new( file => $this->{cookie_jar_file}, autosave => 1 );
важный момент - нужна свежая версия HTTP::Cookies , у меня не работало сохранение, пока не обновил до последней
источник

P

Pavel in Modern::Perl
А никто не ловил баги при LWP::UA при запросах по wildcard сертификатах? У меня вот сегодня почему-то запросы перестали работать когда обновил на hypnotoad серт на вайлд. При этом через браузер открываю нормально, ничего не ругается, а при запросах с сервера через LWP::UA - ругается - certificate verify failed . Помогло только
 $ua->ssl_opts(
      SSL_verify_mode => 0,
      verify_hostname => 0,
 );
но чую что есть правильный метод...
источник

DF

Denis F in Modern::Perl
Pavel
my $cookie_jar = HTTP::Cookies->new( file => $this->{cookie_jar_file}, autosave => 1 );
важный момент - нужна свежая версия HTTP::Cookies , у меня не работало сохранение, пока не обновил до последней
да мне не нужно в файл сохранять, у меня почему-то не добавляются куки от запросов после первого.
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
да мне не нужно в файл сохранять, у меня почему-то не добавляются куки от запросов после первого.
Он пустой хеш вроде в http::cookies превращает
источник

SZ

Sergey Zhmylove in Modern::Perl
Pavel
А никто не ловил баги при LWP::UA при запросах по wildcard сертификатах? У меня вот сегодня почему-то запросы перестали работать когда обновил на hypnotoad серт на вайлд. При этом через браузер открываю нормально, ничего не ругается, а при запросах с сервера через LWP::UA - ругается - certificate verify failed . Помогло только
 $ua->ssl_opts(
      SSL_verify_mode => 0,
      verify_hostname => 0,
 );
но чую что есть правильный метод...
Настроить ssl? Openssl что показывает?
источник

SZ

Sergey Zhmylove in Modern::Perl
Denis F
да мне не нужно в файл сохранять, у меня почему-то не добавляются куки от запросов после первого.
Запусти мой код, там всё необходимое есть. Проверишь баги в твоих версиях пакетов

https://paste.ubuntu.com/p/T9S2yBmtg4/
источник

P

Pavel in Modern::Perl
Sergey Zhmylove
Настроить ssl? Openssl что показывает?
ну если хром не ругается при открытии урла, мне кажется с ссл все ок.
источник

P

Pavel in Modern::Perl
или вопрос именно в клиентских настройках сервера с которого делаю запрос через ЛВП?
источник

SZ

Sergey Zhmylove in Modern::Perl
Pavel
ну если хром не ругается при открытии урла, мне кажется с ссл все ок.
Нет, тебе кажется
источник

SZ

Sergey Zhmylove in Modern::Perl
Pavel
или вопрос именно в клиентских настройках сервера с которого делаю запрос через ЛВП?
++
источник

SZ

Sergey Zhmylove in Modern::Perl
Pavel
или вопрос именно в клиентских настройках сервера с которого делаю запрос через ЛВП?
О чем я и говорю
источник

SZ

Sergey Zhmylove in Modern::Perl
Зайди на свой сервер, напиши там openssl s_client -connect ip:443 и почитай что пишет
источник

P

Pavel in Modern::Perl
CONNECTED(00000003)
depth=0 CN = *.example.ru
verify error:num=20:unable to get local issuer certificate
verify return:1
depth=0 CN = *.example.ru
verify error:num=21:unable to verify the first certificate
verify return:1
---
Certificate chain
0 s:/CN=*.example.ru
  i:/C=US/O=DigiCert Inc/CN=RapidSSL TLS DV RSA Mixed SHA256 2020 CA-1
---
///
источник