From: Eugene Grosbein grosbein.net 09 Dec 2018 22:50 +0200
To: Brother Rabbit 2:460/5858
Subject: uudecode
09 дек. 2018, воскресенье, в 11:59 NOVT, Brother Rabbit написал(а): BR> Почему иногда поломаные файлы в результате получаются? Что я не так сделал? Всё. Лучше использовать готовый модуль Convert::UU: https://metacpan.org/pod/distribution/Convert-UU/lib/Convert/UU.pm BR> === Import Windows Clipboard Start === BR> $uuedir = "\/home\/fido\/uue"; Обратные слеши не нужны низачем, а только ухудшают читабельность. Двойные кавычки тоже не нужны, если внутри нет переменных для интерполяции - одинарные кавычки для строковых литералов самое то. BR> # директория, в которой складывать разююки. BR> if (defined($area)) { BR> if ( $text =~ /\rbegin 644[ ]+([^ \r]+)\r(.*\r)end\r/i ){ Текстовые файлы под Windows по умолчанию открываются в режиме ":crlf", но не помешает и явно указать это при открытии, см. perldoc open. И не нужно использовать \r вместо нормальных ^ и $ для обозначения начала и конца строки, в том числе и для многострочных переменных - используй /m при матчинге (perldoc perlre). Eugene
From: Eugene Grosbein grosbein.net 24 Nov 2018 12:55 +0200
To: Brother Rabbit 2:460/5858
Subject: JAM
23 нояб. 2018, пятница, в 20:56 NOVT, Brother Rabbit написал(а): BR> Подскажите, есть ли готовые библиотеки для работы с JAM базой и где взять? Как нынче модно спрашивать, в гугле забанили? Первая ссылка по запросу perl fidonet jam это ответ на твой вопрос: http://ftnpl.sourceforge.net/ftnpljam.html ftnpljam - FTN::JAM - Perl module for processing JAM message bases. А оттуда ссылка на общее гнездо всех перловых модулей CPAN (нынче metacpan): https://metacpan.org/release/FTN-JAM Eugene -- Hаучить не кланяться авторитетам, а исследовать их и сравнивать их поучения с жизнью. Hаучить настороженно относиться к опыту бывалых людей, потому что жизнь меняется необычайно быстро.
From: Brother Rabbit 2:460/5858 23 Nov 2018 20:56 +0200
To: All
Subject: JAM
Hi, All! Подскажите, есть ли готовые библиотеки для работы с JAM базой и где взять? Have nice nights. Brother Rabbit.
From: "Viktor V. Kudlak" 2:5030/1374 02 Oct 2017 23:01 +0300
To: Eugene Grosbein grosbein.net
Subject: Задача.
Hello Eugene. 14 Sep 17 16:17, you wrote to Alexandr Kruglikov: AV>>> А можно и без эхотага: AV>>> sed -nre '/^EchoArea .* \-\$gJ /{s/^[a-z]+ +//ig;s/ .*//g;p}' AK>> В его полосатого муха (ОС) не завезли ни sed, ни grep, ни awk... AK>> З.Ы. (Замечу Ышо)#1: в правильных православных OS с демонами всё AK>> проще: AK>> grep -ie "^echoarea" /usr/local/etc/fido/config | awk '{ print $2 AK>> }' EG> Всё ещё проще, так как awk сам прекрасно умеет грепать: EG> awk '$5 == "-$gJ" { print $2 }' тут не совсем верное решение, т.к. поле может быть любым по счету в HPT. Думаю лучше регуляркой делать: awk '/-\$gJ/ { print $2 }' Viktor