Re: echo50.lst to <areatag> <description> converter.
- From
- Edward Yudanov (2:5007/11.35)
- To
- Mitry Matyushkov
- Date
- 2005-09-07T14:29:40Z
- Area
- RU.UNIX.FTN
Категорически приветствую тебя, Mitry Matyushkov!
On Tue, 06 Sep 2005 22:34:38 +0800, Mitry Matyushkov wrote:
YL>> Сегодня наваял маленькую сишную прожку, которая конвертит эхолист в
YL>> список
YL>> эх формата <ареатаг> <описание>, исходник весит 1,7 кб. Если кому-нибудь
YL>> нужна и модератор не против - могу ююкнуть сюда. Написал чтобы конвертить
YL>> эхолист в список для forward-request'ов.
MM> Такую чтоли:
MM> awk -F, '! /^;/ {print $2 " " $3 }' < echo50.lst > echo50.na
Некрасиво получится -- нет преобразования регистра!
====/temp/perl/lst2echo.pl
#!/usr/bin/perl -w
# command: lst2echo.pl < /path/to/echo50.lst > /path/to/echo.XX
use strict;
while(<STDIN>) {
if (/^,(.+?),(.+?),(.+?)$/) {
chomp;
print "\U$1\E\t\"$2\"\n";
}}
close STDIN;
exit 0;
====\
Так потянет или ещё что-нибудь добавить? ;)
Можно ещё и со split завернуть, но думать совсем неохота... :)
--
WBR, Edward Yudanov
--- slrn/0.9.8.0-asp (Linux)
* Origin: [ RLU #316941 http://fido.khakassia.ru/ ] (2:5007/11.35)
SEEN-BY: 46/50 50/203 400/814 450/186 247 1024 451/30 454/9 465/285 469/418
SEEN-BY: 4646/15 5000/5000 5001/5001 5002/50 79 5003/57 5007/1 7 10 11 20
SEEN-BY: 5010/53 5011/13 5012/23 46 5015/10 28 5019/31 5020/154 175 400 545
SEEN-BY: 5020/715 758 830 937 1523 1604 2020 2142 2238 2871 4441 5021/29
SEEN-BY: 5022/128 5025/3 750 5026/45 5027/16 5030/49 115 436 556 966 1063 1900
SEEN-BY: 5031/47 70 5035/38 5036/34 5040/47 5042/13 5049/50 5053/16 5054/1 8 9
SEEN-BY: 5054/18 37 45 63 67 81 5059/9 37 5060/900 5061/120 5062/1 10 5063/3
SEEN-BY: 5067/2 5069/7 5070/1222 5077/70 5080/80 1003 5083/21 5085/13 5090/108
SEEN-BY: 5090/113 5092/1 5095/20 5096/18 5099/11 6000/12 254 6001/10 6090/1
PATH: 5007/11 1 5020/400 4441 545 5054/1 37