Size: a a a

2020 February 27

ع

عاصم بن حارث in Modern::Perl
Vyacheslav Olkhovchenkov
кажется мене удобно. вот сейчас у меня задача такая -- у меня есть ip (к примеру 10.2.1.234) и есть список интерфесов, у которых адреса к примеру 10.2.1.129/30, 10.2.1.133/30 и другие, а мне надо определить этот ip в сабнет какого интерфейса попадает.
кривое, но простое решение:
1. упакуй 10.2.1.234 в число
2. получи мин\макс значения на каждом интерфейсе (тоже в виде числа)
3. выполни: "принадлежит интервалу  [min..max]"
—-
+ посмотри доку перловую по pack\unpack
источник

VG

Vadim Goncharov in Modern::Perl
зачем это всё, если есть готовые модули?..
источник

VO

Vyacheslav Olkhovchenkov in Modern::Perl
вот оно мне так надо?
источник

VO

Vyacheslav Olkhovchenkov in Modern::Perl
во-во
источник

VO

Vyacheslav Olkhovchenkov in Modern::Perl
не говоря уж о том, что п.2 выполнять -- ну то еще равзлечение
источник

VG

Vadim Goncharov in Modern::Perl
даже несмотря на то, что это просто, какой смысл велосипедить, если в готовых модулях всё сто лет отлажено?
источник

ع

عاصم بن حارث in Modern::Perl
Vyacheslav Olkhovchenkov
не говоря уж о том, что п.2 выполнять -- ну то еще равзлечение
дык, юзни мАдуль... )))
источник

ع

عاصم بن حارث in Modern::Perl
Vadim Goncharov
даже несмотря на то, что это просто, какой смысл велосипедить, если в готовых модулях всё сто лет отлажено?
+++
источник

ع

عاصم بن حارث in Modern::Perl
Vadim Goncharov
даже несмотря на то, что это просто, какой смысл велосипедить, если в готовых модулях всё сто лет отлажено?
псевдо попрактиковаться... не?
в качестве "легенькой такой промышленности" (тов. Новосельцев) ))))
источник

ع

عاصم بن حارث in Modern::Perl
2all:
принадлежность к интервалу через "~~" smart matching,
вероятно самая простая идея? например:
$ip_num ~ ~ [$min..$max] ? <.in..> : <..not in...>;
источник

OP

Oleg Pronin in Modern::Perl
источник

OP

Oleg Pronin in Modern::Perl
Решает поставленную задачу
источник

OP

Oleg Pronin in Modern::Perl
И работает быстро
источник

ع

عاصم بن حارث in Modern::Perl
Ага.
источник

ع

عاصم بن حارث in Modern::Perl
но, самому какой-нить "огрызочек" кода, не глядя, тоже иногда охота настучать на кнопах )))
источник

AP

Anton Petrusevich in Modern::Perl
я помню проблема с Net::CIDR, что он тормозной конкретно. реально пришлось от него отказаться изза этого
источник

ع

عاصم بن حارث in Modern::Perl
Anton Petrusevich
я помню проблема с Net::CIDR, что он тормозной конкретно. реально пришлось от него отказаться изза этого
Ничего не могу сказать, я не юзал его в каких-то оверлоад задачах...
А на что пересел, не подсветишь?
источник

AP

Anton Petrusevich in Modern::Perl
use Socket; ... inet_ntoa|inet_aton ... pack|unpack "N" ...
источник

ع

عاصم بن حارث in Modern::Perl
Anton Petrusevich
use Socket; ... inet_ntoa|inet_aton ... pack|unpack "N" ...
👍
источник

VG

Vadim Goncharov in Modern::Perl
вон ж лайт есть
источник