From: Stas Mishchenkov 2:460/5858 10 Feb 2022 19:08 +0200
To: Eugene Grosbein grosbein.net
Subject: IO::Socket::IP
Hi, Eugene! 09 фев 22 17:01, Eugene Grosbein -> Stas Mishchenkov: EG>>> print тоже может обломаться и вернуть ложь EG>>> (вывод перенаправлен в файл и место кончилось, или вывод уходит EG>>> в сетевой сокет и локальный файрвол зарезал соединение и т.д.) EG>>> А по сути - работа таймаутов системно-зависима, что у тебя за версия EG>>> Perl и операционной системы? SM>> [fido@brorabbit ip]$ perl -v SM>> This is perl 5, version 28, subversion 3 (v5.28.3) built for SM>> x86_64-linux-thread-multi SM>> [fido@brorabbit ip]$ uname -a SM>> Linux brorabbit 5.4.81-std-def-alt1 #1 SMP Fri Dec 4 09:57:57 UTC 2020 SM>> x86_64 GNU/Linux EG> Проблема воспроизводима? Через раз. EG> Hадо смотреть truss или что там у тебя есть из трассировки системных EG> вызовов. Пока вроде бы победил дополнительным вызовом sock->timeout(15); Have nice nights. Stas Mishchenkov.
From: Eugene Grosbein grosbein.net 09 Feb 2022 17:01 +0200
To: Stas Mishchenkov 2:460/5858
Subject: IO::Socket::IP
09 февр. 2022, среда, в 10:38 NOVT, Stas Mishchenkov написал(а): SM>>> Имеем такой код: SM>>> my $sock = IO::Socket::IP->new(PeerAddr => $host, SM>>> PeerPort => $portaddress, SM>>> Timeout => 15, SM>>> Proto => 'tcp') || print "error $!\n" && SM>>> return " $host - Error $!\n"; SM>>> с некоторыми хостами, например, joesbbs.com:24554, может провисеть при SM>>> попытке соединения несколько часов. По таймауту не отваливается. Что я не SM>>> так делаю или как заставить его всё-таки выдавать ошибку по таймауту? EG>> Для начала перестань предполагать, что print всегда успешен SM> Hу, в данном случае точно не в нем дело. EG>> и больше не пиши print "error $!\n" && return SM> А как писать? || { print ... ; return ...; } EG>> print тоже может обломаться и вернуть ложь EG>> (вывод перенаправлен в файл и место кончилось, или вывод уходит EG>> в сетевой сокет и локальный файрвол зарезал соединение и т.д.) EG>> А по сути - работа таймаутов системно-зависима, что у тебя за версия EG>> Perl и операционной системы? SM> [fido@brorabbit ip]$ perl -v SM> This is perl 5, version 28, subversion 3 (v5.28.3) built for SM> x86_64-linux-thread-multi SM> [fido@brorabbit ip]$ uname -a SM> Linux brorabbit 5.4.81-std-def-alt1 #1 SMP Fri Dec 4 09:57:57 UTC 2020 x86_64 SM> GNU/Linux Проблема воспроизводима? Hадо смотреть truss или что там у тебя есть из трассировки системных вызовов. Eugene -- Поэты - страшные люди. У них все святое.
From: Stas Mishchenkov 2:460/5858 09 Feb 2022 09:38 +0200
To: Eugene Grosbein grosbein.net
Subject: IO::Socket::IP
Hi, Eugene! 09 фев 22 13:46, Eugene Grosbein -> Stas Mishchenkov: SM>> Имеем такой код: SM>> my $sock = IO::Socket::IP->new(PeerAddr => $host, SM>> PeerPort => $portaddress, SM>> Timeout => 15, SM>> Proto => 'tcp') || print "error $!\n" && SM>> return " $host - Error $!\n"; SM>> с некоторыми хостами, например, joesbbs.com:24554, может провисеть при SM>> попытке соединения несколько часов. По таймауту не отваливается. Что я не SM>> так делаю или как заставить его всё-таки выдавать ошибку по таймауту? EG> Для начала перестань предполагать, что print всегда успешен Ну, в данном случае точно не в нем дело. EG> и больше не пиши print "error $!\n" && return А как писать? EG> print тоже может обломаться и вернуть ложь EG> (вывод перенаправлен в файл и место кончилось, или вывод уходит EG> в сетевой сокет и локальный файрвол зарезал соединение и т.д.) EG> А по сути - работа таймаутов системно-зависима, что у тебя за версия EG> Perl и операционной системы? [fido@brorabbit ip]$ perl -v This is perl 5, version 28, subversion 3 (v5.28.3) built for x86_64-linux-thread-multi [fido@brorabbit ip]$ uname -a Linux brorabbit 5.4.81-std-def-alt1 #1 SMP Fri Dec 4 09:57:57 UTC 2020 x86_64 GNU/Linux Have nice nights. Stas Mishchenkov.
From: Eugene Grosbein grosbein.net 09 Feb 2022 13:46 +0200
To: Stas Mishchenkov 2:460/5858
Subject: IO::Socket::IP
08 февр. 2022, вторник, в 20:03 NOVT, Stas Mishchenkov написал(а): SM> Имеем такой код: SM> my $sock = IO::Socket::IP->new(PeerAddr => $host, SM> PeerPort => $portaddress, SM> Timeout => 15, SM> Proto => 'tcp') || print "error $!\n" && SM> return " $host - Error $!\n"; SM> с некоторыми хостами, например, joesbbs.com:24554, может провисеть при попытке SM> соединения несколько часов. По таймауту не отваливается. Что я не так делаю или SM> как заставить его всё-таки выдавать ошибку по таймауту? Для начала перестань предполагать, что print всегда успешен и больше не пиши print "error $!\n" && return print тоже может обломаться и вернуть ложь (вывод перенаправлен в файл и место кончилось, или вывод уходит в сетевой сокет и локальный файрвол зарезал соединение и т.д.) А по сути - работа таймаутов системно-зависима, что у тебя за версия Perl и операционной системы? Eugene -- What would you do with a brain if you had one?
From: Stas Mishchenkov 2:460/5858 08 Feb 2022 19:03 +0200
To: All
Subject: IO::Socket::IP
Hi, All! Имеем такой код: my $sock = IO::Socket::IP->new(PeerAddr => $host, PeerPort => $portaddress, Timeout => 15, Proto => 'tcp') || print "error $!\n" && return " $host - Error $!\n"; с некоторыми хостами, например, joesbbs.com:24554, может провисеть при попытке соединения несколько часов. По таймауту не отваливается. Что я не так делаю или как заставить его всё-таки выдавать ошибку по таймауту? Have nice nights. Stas Mishchenkov.
From: "Viktor V. Kudlak" 2:5030/1374 16 Sep 2021 20:49 +0300
To: Evgeny Chevtaev 2:5010/275
Subject: про regexp
Hello Evgeny. 04 Aug 21 08:09, you wrote to all: EC> Подскажите, граждане, как в сабжах приоритеты (или как оно по-умному EC> называется) делать? EC> Есть переменная с многострочным html, где вложенные div'ы: EC> EC> Всякая хрень EC>
Почта: васян@домен
EC>
Телефон: 123
EC> Всякая хрень EC> EC> Hадо почту выкорчевать. Делаю "$body =~ s/.*Почта:\s(.*)<\/div>/$1/", EC> получаю вырезку до последнего div. Как до первого оно делается? Помню, EC> что на эту тему тут пробегал научный труд, но не нашёл того письма. Отрегулируй жадность наапример поставь вопросик после .* гуглится на раз-два, старый избитый вопрос Viktor
From: Gennadij Pastuhov 2:5036/26 13 Aug 2021 18:27 +0300
To: Dmitry Ivanov 2:5023/24.3209
Subject: Валидация адресов в ДНС записях
Рад всех приветствовать! А особенно - Dmitry! Пятница августа 13 21 18:06 Dmitry Ivanov писал к Gennadij Pastuhov: >> Как наиболее кошерно валидировать записи вида >> 56.34.12.10.in-addr.arpa. IN PTR host1.example.net. ? >> Требуется проверять корректность ip. Сплитить, реверсить и >> проверять, или есть готовые решения? DI> Что делать с ответами типа DI> ;; QUESTION SECTION: DI> ;13.222.133.10.in-addr.arpa. IN NS DI> ;; AUTHORITY SECTION: DI> 133.10.in-addr.arpa. 3600 IN SOA [bla-bla-bla] DI> ? Прошу пардону, не уточнил, интересует именно PTR. ... Jonny wanna live
From: Dmitry Ivanov 2:5023/24.3209 13 Aug 2021 18:06 +0300
To: Gennadij Pastuhov 2:5036/26
Subject: Валидация адресов в ДНС записях
Здравствуйте, Gennadij. Вы писали 10 августа 2021 г., 16:16:28: > Рад всех приветствовать! А особенно - All! > Как наиболее кошерно валидировать записи вида > 56.34.12.10.in-addr.arpa. IN PTR host1.example.net. ? > Требуется проверять корректность ip. Сплитить, реверсить и > проверять, или есть готовые решения? Что делать с ответами типа ;; QUESTION SECTION: ;13.222.133.10.in-addr.arpa. IN NS ;; AUTHORITY SECTION: 133.10.in-addr.arpa. 3600 IN SOA [bla-bla-bla] ? -- С уважением, Dmitry
From: Stas Mishchenkov 2:460/5858 12 Aug 2021 11:38 +0300
To: Anton Gorlov 2:5059/37@FidoNet
Subject: парсер эхотага
Hi, Anton! 11 авг 21 14:43, Anton Gorlov -> Stas Mishchenkov: RS>>>>> Интересует есть ли какие-либо готовые решения на Perl, для RS>>>>> открытия squid, jam файла и чтения ? EG>>>> Как обычно, ищи на CPAN. Hапример, EG>>>> https://metacpan.org/release/FTN-JAM RS>>> Спасибо, отличнейший модуль ! :) SM>> Есть свежее версия и менее глючная. AG> А вгде? На гитхабе. https://github.com/ftnpl/ftn-jam Have nice nights. Stas Mishchenkov.
From: Anton Gorlov 2:5059/37@FidoNet 11 Aug 2021 14:43 +0300
To: Stas Mishchenkov 2:460/5858
Subject: парсер эхотага
Привет Stas! 01 сен 20 года (а было тогда 23:19) Stas Mishchenkov в своем письме к Ruslan Suleimanov писал: RS>>>> Интересует есть ли какие-либо готовые решения на Perl, для RS>>>> открытия squid, jam файла и чтения ? EG>>> Как обычно, ищи на CPAN. Hапример, EG>>> https://metacpan.org/release/FTN-JAM RS>> Спасибо, отличнейший модуль ! :) SM> Есть свежее версия и менее глючная. А вгде? С уважением. Anton aka Stalker Linux Registered User #386476 [#*TEAM:*#] [#_Злой СисОп_#] [*Heavy Metal!*] [*_Усачи_*]