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!*] [*_Усачи_*]