Size: a a a

2020 July 10

b

basiliscos in Modern::Perl
можешь наш https://metacpan.org/pod/Protocol::HTTP попробовать
источник

b

basiliscos in Modern::Perl
но (явной) поддержки PSGI там пока нет
источник

b

basiliscos in Modern::Perl
а, нет, в PSGI там за тебя уже хидеры распаршены, а тело нет... если тебе только тело, то пока пользоваться Protocol::HTTP не оч. удобно.
источник

AK

Andrey Konovalov in Modern::Perl
basiliscos
а, нет, в PSGI там за тебя уже хидеры распаршены, а тело нет... если тебе только тело, то пока пользоваться Protocol::HTTP не оч. удобно.
Да, мне тело нужно, так-то в Plack::Request всё хорошо
источник

b

basiliscos in Modern::Perl
Ну подводные камни там такие: может быть чанками, может быть пожато, может быть Content-Length выставлен (для запроса вроде обязан), отдельно ещё и multipart/formdata может быть.
источник

AK

Andrey Konovalov in Modern::Perl
basiliscos
Ну подводные камни там такие: может быть чанками, может быть пожато, может быть Content-Length выставлен (для запроса вроде обязан), отдельно ещё и multipart/formdata может быть.
Мда...
источник

AK

Andrey Konovalov in Modern::Perl
Но есть же куча фреймворков типа Dancer'а, они это всё заново вряд ли изобретают?
источник

b

basiliscos in Modern::Perl
афаик, да... ну ещё и кейс когда тебе файлы постят по 5гб надо отдельно рассмотреть )
источник

AK

Andrey Konovalov in Modern::Perl
basiliscos
афаик, да... ну ещё и кейс когда тебе файлы постят по 5гб надо отдельно рассмотреть )
У меня всё достаточно просто в общем-то...
источник

AK

Andrey Konovalov in Modern::Perl
Я могу попросить тех, кто постит, делать как удобно.
Чем быстрее всего парсить url-encoded?
источник

AK

Andrey Konovalov in Modern::Perl
источник

AK

Andrey Konovalov in Modern::Perl
Нормальный вариант?
источник

AK

Andrey Konovalov in Modern::Perl
Взял HTTP::Body, идёт в поставке дистрибутива
источник

AK

Andrey Konovalov in Modern::Perl
Всё ещё интереснее: как минимум для applicaton/x-www-form-urlencoded в Plack::Request уже есть распарсенные параметры, достаются простым $req->param(NAME)
источник

WC

Waldi 🇩🇪 C in Modern::Perl
Ребята, нужна помощь с сайтом, напишите в лс кто может на выходных заняться. Суть довольно простая - есть страничка на которой формируется ссылка для входа на сайт, но на сайте поменялась авторизация и логин и пароль не как раньше передается на сайт в виде post аргументоов, а как-то иначе (сайт starline-online.ru)
источник

DF

Denis F in Modern::Perl
Так там просто страница логина другая
источник

DF

Denis F in Modern::Perl
ну и токен наверное
источник
2020 July 11

SU

Someone Unknown 🇭🇷... in Modern::Perl
@imcono и другие ракушники, поможете? Чего-то я голову прочесал до дыр уже.

Вот есть у меня правило в грамматике

rule box { 'BOX' <int-expr> ** 5 %% ',' }

И дальше в методе класса действий я вычисляю эти вот пять агрументов

method box($/) { say "  BOX " ~ $<int-expr>.map(*.ast).join(', ') }

Тут всё хорошо. Следующее правило в грамматике — с разнотипными аргументами

rule block { 'BLOCK' <int-expr> ** 4 %% ',' ',' <str-expr> ',' <int-expr> ** 5 %% ',' ',' <str-expr> }

Вот как для него в методе точно так же вычислить все аргументы разом? Пробовал $/.map(*.ast), курил доку к классу Match — ни фига не помогает.
источник

c

cono in Modern::Perl
$/{int-expr}
источник

SU

Someone Unknown 🇭🇷... in Modern::Perl
cono
$/{int-expr}
Это все инты будут. А чтобы вот в массивчик и инты и строки в той последовательности, в которой они перечислены?
источник