|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Edward Yudanov 2:5007/11.35 30 Nov 2004 23:45:20
To : All
Subject : ECHO50.LST -> areas
--------------------------------------------------------------------------------
Hакропал тут этот самый скриптик для преобразования списка эх региона в
файл areas для фидогейта. Вот что получилось:
====/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;
print "\U$area\E\t\tfido.\L$news\E\t -z 2 -8 -d\"$descript\"\t# Moderator:
$sysop \@ $addr\n";
}}
close LIST;
====\
Подскажите мне глупому куда нужно подставить s/\W/-/
чтобы избавиться от управляющих символов в переменной $news ?
В документациях как-то смутно это всё описано :(
--
|> Студия 54 - Одна из миллиона.ogg
--- slrn/0.9.8.0-asp (Linux)
* Origin: [ RLU #316941 http://fido.khakassia.ru/ ] (2:5007/11.35)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
