- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #5551 [620]
От : Edward Yudanov 2:5007/11.35 19 января 05, 23:07
Кому : All 12 февраля 05, 20:57
Тема : pointlist -> aliases
-------------------------------------------------------------------------------
Категорически приветствую тебя, All!
Для более удобного использования захотелось сделать из обычного
поинтлиста файл aliases для mutt. Есть ли у кого-нибудь хоть какие-то
наработки по этому поводу?
для начала мне нужно получить список типа:
2:5007/16.1 Leonid_Subbotin
2:5007/16.2 Edward_Yudanov
2:5007/16.3 Wladimir_Chmihoon
[...]
ну как имя выдрать я знаю, как фидошный адрес в e-mail перевести
примерно представляю -- что-то типа такого:
====~/fido2email.pl
#!/usr/bin/perl -w
while(){
chomp;
if (/^(\d):(\d+?)\/(\d+?)\.(\d+?)$/) {
print "p$4\.f$3\.n$2\.z$1\.fidonet\.org\n";
}};
close STDIN;
====\
Помогите пожалуйста с составлением фидошного адреса из поинтлиста...
--
mp3blaster: Renegade soundwave - Renegade soundwave
--- slrn/0.9.8.0-asp (Linux)
* Origin: [ RLU #316941 http://fido.khakassia.ru/ ] (2:5007/11.35)