В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

459 membersпожаловаться на группу
2021 June 16

W

Warstone in Modern::Perl
На самом деле, если вы почитаете доку по Mojo (или по любому другому фреимворку), то там будут примеры. Дело в том, что "серьезность" фреимворки пытаются взять на себя и конкретный код будет решать конкретные задачи.
источник
14:45пожаловаться#1

SZ

Sergey Zhmylove in Modern::Perl
Вот тебе ещё полноценное приложение с фронтом на вью, бэком на можо и не без субд, всё влезло в один скрипт: https://gist.githubusercontent.com/jberger/c4515eb8399f356736528dbc5af115f2/raw/4a9f85d542fb45a4fe842b8036b0e9a12f3ec5ac/vue_chat.pl
Оно кстати хорошо масштабируется горизонтально. Так что вопрос «высокой нагруженности»...
источник
14:45пожаловаться#2

W

Warstone in Modern::Perl
Упрется в базу ))
источник
14:48пожаловаться#3

W

Warstone in Modern::Perl
Но до этого далеко, да.
источник
14:48пожаловаться#4

SZ

Sergey Zhmylove in Modern::Perl
Так база тоже горизонтально туды-сюды
источник
14:49пожаловаться#5

MG

Mr. Good in Modern::Perl
спасибо и на этом за информацию:)
источник
14:49пожаловаться#6

W

Warstone in Modern::Perl
Ну-у-у... Не помню ни одного HA решения для Пг чтобы оно listen поддерживало.
источник
14:50пожаловаться#7

SZ

Sergey Zhmylove in Modern::Perl
Это же приложение есть на редисе, у которого ещё лучше это сделано в кластере. Женя Iph0 наверняка может дать живых примеров
источник
14:50пожаловаться#8

MG

Mr. Good in Modern::Perl
Вот это мой подход, пока на скорость жалоб не было:

#!/usr/bin/perl -w

use strict;
use utf8;

use FCGI;
use DBI;
use CGI::Simple;

$CGI::Simple::POST_MAX = 100_777_777_777;
$CGI::Simple::DISABLE_UPLOADS = 0;

binmode STDOUT, ":utf8";

my $dbh ||= DBI->connect("DBI:mysql:test", "test", "test");
$dbh->{mysql_auto_reconnect} = 1;

my $request = FCGI::Request();

while($request->Accept() >= 0) {

my $query = new CGI::Simple;

...

}
источник
14:55пожаловаться#9

AS

Alexey Stavrov in Modern::Perl
Извините, но Ваш код как бы ничего не выводит и не обрабатывает. Вот мой код очень приближен к рабочему варианту, который вам отрендерит 2 страницы.
источник
14:57пожаловаться#10

MG

Mr. Good in Modern::Perl
В моем сообщении был важен принцип, подход
источник
14:57пожаловаться#11

SZ

Sergey Zhmylove in Modern::Perl
Как в твоём подходе реализовать это?
https://gist.githubusercontent.com/jberger/c4515eb8399f356736528dbc5af115f2/raw/4a9f85d542fb45a4fe842b8036b0e9a12f3ec5ac/vue_chat.pl
источник
14:58пожаловаться#12

W

Warstone in Modern::Perl
А... Ну тогда принцип для Mojo:
use Mojo
источник
14:58пожаловаться#13

W

Warstone in Modern::Perl
Никак. FCGI не умеет в websocket
источник
14:58пожаловаться#14

SZ

Sergey Zhmylove in Modern::Perl
Блин, ну зачем ты подсказываешь 😜
Я хотел сначала посмотреть на ивентлуп на коленке...
источник
14:59пожаловаться#15

W

Warstone in Modern::Perl
Эм... Архитектурно-же нельзя...
источник
14:59пожаловаться#16

W

Warstone in Modern::Perl
Ему фронтальная прокся не даст
источник
15:00пожаловаться#17

SZ

Sergey Zhmylove in Modern::Perl
В мире ит нет ничего невозможного :) думаю, при желании можно использовать fcgi, прикрутить на коленке к нему ивентлуп на селектах, накостылить вебсокет-прокси через, например, pf_unix и этот монстр вполне даже сможет работать на низких скоростях
источник
15:02пожаловаться#18

AS

Alexey Stavrov in Modern::Perl
Я думаю можно заморочиться и сделать это всё неблокирующим. Будут просто всякие контексты, где переменный окружения будут лежать.
источник
15:02пожаловаться#19

W

Warstone in Modern::Perl
Поздравляю. Вы начали придумывать Mojo
источник
15:03пожаловаться#20