|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Edward Yudanov 2:5007/11.35 01 Dec 2004 21:54:53
To : Sergey Gernichenko
Subject : Re: ECHO50.LST -> areas
--------------------------------------------------------------------------------
Как сейчас помню Wed, 01 Dec 2004 10:32:12 +0700 ты писал(а):
EY>> Подскажите мне глупому куда нужно подставить s/\W/-/
EY>> чтобы избавиться от управляющих символов в переменной $news ?
SG>$news =~ s/\W/-/;
Спасибо, смысл понял. Маленько переделать пришлось...
Hадо будет немного разобраться с форматами этих эхолистов, оказывается
несколько их видов. :-/
Можно, конечно ещё рюшечек добавить по поводу автоматического выдирания
листа из архива и перекодирование файла в нужную кодировку...
только я лично добился чего хотел и мне этого достаточно. Вот что
получилось:
====/echolist.pl
#!/usr/bin/perl -w
# Конвертор echolist -> areas
use strict;
open(LIST,"< /temp/myperl/areas/echo50.lst") || die "Файл не найден\n";
while(<LIST>) {
if (/^,(.+?)$/) {
my ($status, $area, $descript, $sysop, $addr) = split(/,/);
my ($news) = $area;
$news =~ s/[\$&|_'\/]/-/;
print "\U$area\E\t\tfido.\L$news\E\t -z 2 -8 -d\"$descript\"\t# Moderator:
$sysop \@ $addr\n";
}}
close LIST;
====\
EY>> В документациях как-то смутно это всё описано :(
SG>поищи доки на русском. Была когда-то lamabook на русском.
Hашёл я эту лламабук в бумажном издании, изучаю потихоньку. Убил бы тех,
кто её перепечатывал.... Ошибок глупых куча!
--
|> MC Вспышкин feat Hикифоровна - КПП.ogg
--- slrn/0.9.8.0-asp (Linux)
* Origin: [ RLU #316941 http://fido.khakassia.ru/ ] (2:5007/11.35)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
