echo50.lst to <areatag> <description> converter.

From

Igor Mitichev (2:6001/9.9)

To

Edward Yudanov

Date

2005-09-07T19:29:46Z

Area

RU.UNIX.FTN

Привет Edward!

07 Сен 05 года (а было тогда 14:18)
Edward Yudanov в своем письме к Yuriy Lukyanets писал:

 YL>> модератор не против - могу ююкнуть сюда.
 YL>>  Написал чтобы конвертить эхолист в список для
 YL>> forward-request'ов.
 EY> Это ж чего такое ты там наваял????   Ж=-[  @  ]
 EY> Я сколько ни старался, так и не смог на перле ничего больше 400 кило
 EY> наваять. Уже всякие проверки включал...

Может я чего не понимаю, но я не первый год пользуюсь вот этим:

=================== Цитируется echolist2na.pl ===================
#!/usr/local/bin/perl

### echolist2na.pl by Pavel Scvortsov   <pantey@volgogradcity.ru>
#
#   скрипт для создания списка доступных на узле эхоконференций
#   (команда %avail тоссера) из списков в формате EchoList.
#   использование:
#       perl echolist2na.pl
#
### pa [en_team], январь 2004

# измените на нужные значения переменные $echolist (список эхоконференций в
# формате EchoList) и $availlist (файл, который будет отдаваться по команде
# %avail areafix'ом)
#my $echolist = "c:\\ftn\\echolist\\echo50.lst";
my $echolist = "echo50.lst";
my $availlist = "echo1355.lst";

open (IN, "<$echolist") or die " ! cant read $echolist";
open (OUT, ">$availlist") or die " ! cant write new $availlist";
print " > building list of available areas...\n";
while (<IN>) {
  chomp;
#  next if /^\;/o; # коментарий? идем дальше
  s/^(.*)\;.*$/$1/; # забить на коментарии
  if (/^[^,]*\,([^,]+)\,([^,]+)\,/o) {
    $echoname = uc($1);
    $descr = $2;
    if ($descr) {
      $descr =~ tr/H/H/;
    }
    print OUT "$echoname $descr\n";
  }
}
close (OUT); close (IN);
print " > list exported to $availlist.\n";
print " % done!\n";

=================== Конец цитаты ===================

С уважением                                             07 Сен 05 года
Igor Mitichev                                           garick33 на hotbox.ru

       Развитие индивида обусловлено развитием всех других индивидов,
         с которыми он находится в прямом или косвенном общении.(с)
--- Я писать стихи не могу, по натуре я не Пушкин. Я по натуре Белинский.(с)
 * Origin: Задавайте мне любые вопросы, я вам дам любые ответы. (2:6001/9.9)
SEEN-BY: 46/50 400/814 450/1024 5000/5000 5010/53 5011/13 5012/46 5015/10 28
SEEN-BY: 5019/31 5020/545 715 2871 4441 5021/29 5025/3 5027/16 5030/115
SEEN-BY: 5035/38 5036/34 5053/16 5054/1 8 9 18 37 45 63 67 81 5060/900 5063/3
SEEN-BY: 5069/7 5077/70 5080/1003 5085/13 5092/1 5095/20 5096/18 6000/12 254
SEEN-BY: 6001/9 10

PATH: 6001/9 10 5020/545 5054/1 37