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

From

Mitry Matyushkov (2:450/1024.1)

To

Edward Yudanov

Date

2005-09-07T15:22:36Z

Area

RU.UNIX.FTN

Edward,

On 07 Sep 05 14:29, Edward Yudanov (2:5007/11.35) wrote to Mitry Matyushkov:

YL>>> Сегодня наваял маленькую сишную прожку, которая конвертит эхолист в
YL>>> список
YL>>> эх формата <ареатаг> <описание>, исходник весит 1,7 кб. Если кому-нибудь
YL>>> нужна и модератор не против - могу ююкнуть сюда. Написал чтобы конвертить
YL>>> эхолист в список для forward-request'ов.
MM>> Такую чтоли:
MM>> awk -F, '! /^;/ {print $2 " " $3 }' < echo50.lst > echo50.na
EY> Некрасиво получится -- нет преобразования регистра!

Господи, да что же это творится? Добавь toupper/tolower в print и все, зачем огород городить-то?

EY> ====/temp/perl/lst2echo.pl
EY> #!/usr/bin/perl -w
EY> # command: lst2echo.pl < /path/to/echo50.lst > /path/to/echo.XX
EY> use strict;
EY> while(<STDIN>) {
EY> if (/^,(.+?),(.+?),(.+?)$/) {

А Hold/Down не обрабатываешь принципиально?

EY> chomp;
EY> print "\U$1\E\t\"$2\"\n";
EY> }}
EY> close STDIN;
EY> exit 0;
EY> ====\

EY> Так потянет или ещё что-нибудь добавить? ;)
EY> Можно ещё и со split завернуть, но думать совсем неохота... :)

От этого все лишние сущности и появляются :)

Mitry.

--- GoldED+/W32 1.1.5-041013
 * Origin: Да! (2:450/1024.1)
SEEN-BY: 46/50 400/814 450/9 102 160 259 1024 453/19 5000/5000 5010/53 5011/13
SEEN-BY: 5012/46 5015/10 28 5019/31 5020/545 715 2871 4441 5021/29 5025/3
SEEN-BY: 5027/16 5030/115 5035/38 5036/34 5053/16 5054/1 8 9 18 37 45 63 67 81
SEEN-BY: 5059/9 5060/900 5062/10 5063/3 5069/7 5077/70 5080/1003 5085/13
SEEN-BY: 5092/1 5095/20 5096/18 6000/12 254 6001/10

PATH: 450/1024 5020/545 5054/1 37