Нужно перекодировать выборочно строчки в файле

[Sten]

Имеем файл типа:

[Message]
Text="<текст_в_KOI8-R>"
Background=16777215
Foreground=0
Time=1122989527
[ICQMessage]
Flags=1
Background=16777215
Foreground=0
Time=1122989831
ServerText="<текст_в_CP1251>"

Это многократно повторяется
нужно кои8 оставить в кои8, СР1251 перекодировать в кои8
Алгоритм, настолько я понимаю, примерно такой:

1. Ищем строчку, начинающуюся на ServerText
2. Перекодируем её из СР1251 в KOI8-R
3. Идём искать следующую такую строчку (GO TO 1)

ЗЫЖ FreeBSD 5.4 :devil_2:

[t.t]

1. Ищем строчку, начинающуюся на ServerText

↑

А, ну так бы сразу и сказал. Я не понял, что ср1251 бывает только после ServerText. Тогда это вопрос к знатокам седа -- там это, я так понимаю, задачка на тфу.

[xorader]

помоему в sed'е можно внешнюю команду вызывать на найденное совпадение -- отсюда и копать (sed -> iconv)

а, вообще:

Код: Выделить всё

perl -e 'while (<STDIN>) { if (m/^ServerText/) { my ($tmp_str) = `echo "$_" | iconv -f cp1251 -t koi8-r`; printf $tmp_str; } else {print;}} ' < file.txt > file-out.txt

[Sten]

Для xorader:
Практически оно, но часть текста вообще удаляет..
Наверное, всё-таки дожидаемся из отпуска madskull`a по вопросу sed`a..

[xorader]

вот исправленный вариант:

Код: Выделить всё

perl -e 'while (<STDIN>) { if (m/^ServerText/) { chomp; my ($tmp_str) = `echo $_ | iconv -c -f cp1251 -t koi8-r`; print $tmp_str; } else {print;}} '  < file.txt > file-out.txt

[sash-kan]

Для Sten:

Код: Выделить всё

sed -ie '/^ServerText/{s/"/\\"/g;s/^\(.*\)$/echo "\1"\|iconv -f cp1251 -t koi8r/e}' some.file

[xorader]

s/чтототам/внешняя_команда/e <- я правильно понял ? нигде не найду описания флага "e"

[sash-kan]

s/чтототам/внешняя_команда/e <- я правильно понял

↑

не совсем так. читай info sed:

нигде не найду описания флага "e"

↑

info sed -> sed programs -> extended commands

[xorader]

спасибо...
info sed -> sed programs -> The "s" Command
Нашёл описание:

`e'
    This command allows one to pipe input from a shell command into
    pattern space.  If a substitution was made, the command that is
    found in pattern space is executed and pattern space is replaced
    with its output.  A trailing newline is suppressed; results are
    undefined if the command to be executed contains a NUL character.
    This is a GNU `sed' extension.