W
Более того, они и должны реализовываться без промисов, как по мне.
Size: a a a
2020 December 16
W
Эм... Я тут немного не вижу как вы пагинируетесь
a
там слишком рано нажал.
W
Ок. Жду
a
Я на самом деле просто переписал ваш код с async/await на промисы
a
```
```
my $list = [];
my $get_chunk;
$get_chunk = sub { my $url = shift;
HTTP::Request->request($url)->then( sub { my $data = shift;
push(@$list, @{$data->json->{data}});
if ( my $page = $data->json->{next} ) {
$get_chunk->( "http://127.0.0.1?page=$page" );
} else {
undef;
}
} );
};
$get_chunk->( "http://127.0.0.1" );```
a
что-то телеграмовскому парсеру голову снесло от perl синтаксиса :)
С
/source забыл
W
Эм... Ну и как я к этому должен подцепиться then'ом потом?..
IB
allter
что-то телеграмовскому парсеру голову снесло от perl синтаксиса :)
я забил использовать три бектика, а стал использовать hotkey для превращения текста в моноширинный (на маке
cmd+shift+k)W
Я-же не могу сделать $get_chunk->{"http://127.0.0.1")->then(sub { my ($list) = @_; ... })
W
Так как я подпишусь только на первый http запрос.
W
То есть вы обязаны создать прокси промис, его зафаереть в случае если нету next и уже его отдавать в $get_chunk->("..")
a
Эм... Ну и как я к этому должен подцепиться then'ом потом?..
В смысле? Предполагается, что у вас
доступен где-то в вашем коде.
$get_chunk->() вам вернёт промис, который заресолвится в undef, если ok или в ошибку. Если заресолвится, то $list будет наполнен данными.
my $list = [];
доступен где-то в вашем коде.
$get_chunk->() вам вернёт промис, который заресолвится в undef, если ok или в ошибку. Если заресолвится, то $list будет наполнен данными.
SZ
С
/source забыл
Что?
W
allter
В смысле? Предполагается, что у вас
доступен где-то в вашем коде.
$get_chunk->() вам вернёт промис, который заресолвится в undef, если ok или в ошибку. Если заресолвится, то $list будет наполнен данными.
my $list = [];
доступен где-то в вашем коде.
$get_chunk->() вам вернёт промис, который заресолвится в undef, если ok или в ошибку. Если заресолвится, то $list будет наполнен данными.
Эм... Окей... Чуть изменим сигнатуру...
С
> У нас есть ресурс http://127.0.0.1/source он возвращает данные в стиле
W
sub get: Async {
my $list = [];
my $data = await HTTP::Request->request("http://127.0.0.1");
push(@$list, @{$data->json->{data}});
while(my $page = $data->json->{next}) {
$data = await HTTP::Request->request("http://127.0.0.1?page=$page");
push(@$list, @{$data->json->{data}});
}
return $list;
}W
Вот
SZ
С
> У нас есть ресурс http://127.0.0.1/source он возвращает данные в стиле
Ааа, да это не суть :)