Size: a a a

2020 May 18

AK

Andrey Konovalov in Modern::Perl
Vadim Goncharov
эт точно, hosts в 2020 - всяко через жопу
Я тут на сервере даже /etc/resolv.conf не нахожу, а ты говоришь. Такое впечатление, что здесь в принципе никакие DNS-запросы не работают. Банк, внешний ДМЗ, всё вот так.
источник

AK

Andrey Konovalov in Modern::Perl
Думаю настроить pdns-recursor или действительно AnyEvent::DNS::EtcHosts заюзать
источник

AK

Andrey Konovalov in Modern::Perl
Дельный совет, спасибо!
источник

a

allter in Modern::Perl
Andrey Konovalov
Дельный совет, спасибо!
Предупреждаю: в AnyEvent всё плохо с DNS (в частности, с IPv6), в проде лучше прописывать ip. Можно поискать здесь в чате.
источник

a

allter in Modern::Perl
имеет смысл почитать сорцы AnyEvent::DNS (там мало) :)
источник

AK

Andrey Konovalov in Modern::Perl
allter
Предупреждаю: в AnyEvent всё плохо с DNS (в частности, с IPv6), в проде лучше прописывать ip. Можно поискать здесь в чате.
Мне нужно попадать в name-based VirtualHost на Апаче, резолвинг в принципе не нужен. У AnyEvent::HTTP есть хук tcp_connect =>, в котором можно подменить логику коннекта, это в общем тоже вариант, я просто пока не допёр, как подменять
источник

a

allter in Modern::Perl
Andrey Konovalov
Мне нужно попадать в name-based VirtualHost на Апаче, резолвинг в принципе не нужен. У AnyEvent::HTTP есть хук tcp_connect =>, в котором можно подменить логику коннекта, это в общем тоже вариант, я просто пока не допёр, как подменять
Я бы нашёл, как коннектиться по IP с подстановкой Host:
источник

VG

Vadim Goncharov in Modern::Perl
allter
имеет смысл почитать сорцы AnyEvent::DNS (там мало) :)
когда читал сырцы, как раз до него чот не добрался.. там что, совсем пиздец? :)
источник

VG

Vadim Goncharov in Modern::Perl
Andrey Konovalov
Мне нужно попадать в name-based VirtualHost на Апаче, резолвинг в принципе не нужен. У AnyEvent::HTTP есть хук tcp_connect =>, в котором можно подменить логику коннекта, это в общем тоже вариант, я просто пока не допёр, как подменять
в него можно хэш своих заголовков передать
источник

VG

Vadim Goncharov in Modern::Perl
правда, конкретно Host не пробовал
источник

AK

Andrey Konovalov in Modern::Perl
allter
Я бы нашёл, как коннектиться по IP с подстановкой Host:
Всё равно /etc/hosts нужен, в итоге резолвиться может и не в 127.0.0.1 потенциально.
Сейчас закину пакет насоветованный, посмотрим, насколько поможет
источник

a

allter in Modern::Perl
Vadim Goncharov
когда читал сырцы, как раз до него чот не добрался.. там что, совсем пиздец? :)
Ну, я бы не сказал, что совсем. Когда я смотрел, было просто сильно недоделано. Фактически, оно написано "что бы было". Самое стрёмное, там есть поддержка IPv6, включающаяся автоматически, что приводит сразу к куче проблем (особенно, если реальной коннективити нет). Плюс ещё там были захардкожены рекурсивные ресолверы вроде 8.8.8.8 (т.к. стандартного неблокирующего ресолвинга кросс-платформенного нет).
источник

AP

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

YS

Yevhen Sabodash in Modern::Perl
а не подскажите как различить 1 и "1"? как достать внутренний флаг, чтоб знать что передо мной именно строка?
источник

VG

Vadim Goncharov in Modern::Perl
а looks_like_number недостаточно?
источник

VG

Vadim Goncharov in Modern::Perl
могут же стоять оба флага кагбе
источник

L

Lexa in Modern::Perl
Vadim Goncharov
а looks_like_number недостаточно?
думаю looks_like_number("1") вернет true
источник

VG

Vadim Goncharov in Modern::Perl
а цель в итоге какая?
источник

VG

Vadim Goncharov in Modern::Perl
для JSON есть понятие схемы (и модули), если что
источник

YS

Yevhen Sabodash in Modern::Perl
цель не потерять точность при валидации параметров
источник