ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Edward Yudanov                       2:5007/11.35   20 Jan 2005  00:07:44
 To : All
 Subject : pointlist -> aliases
 -------------------------------------------------------------------------------- 
 

 
 Для более удобного использования захотелось сделать из обычного
 поинтлиста файл 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(<STDIN>){
 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор