 Конвертирование текста,  Ami, 01-Апр-10, 12:14 [смотреть все]есть файл кодировка DOS
сейчас в нем
колличество строк не ограничено как его конвертировать в формат
по 79 байт в строке
есть файл 1.txt
$cat 1.txt
На рабочем столе для каждого пользователя присутствует ярлычок какой-нить красочный. Допустим, происходит обрыв связи. У меня этот момент отлавливается через ннкрон и если связи нет - убивает все процессы, связанные с СМ. Далее, после восстановления связи
...cut
нужно сделать перенос каждой строки в положении 79 символ конец данной строки
80 символ новая строка и так далее по тексту
получаем:
На рабочем столе
для каждого поль
зователя присутс
твует ярлычок ка
кой-нить красочн
ый.
и каждую новую строчку закрыть в кавычки ""
"На рабочем столе"
"для каждого поль"
"зователя присутс"
"твует ярлычок ка"
"кой-нить красочн"
"ый. "
помогите кто знает
|
- Конвертирование текста, Pahanivo, 16:12 , 01-Апр-10 (1)
- Конвертирование текста, Ami, 16:24 , 01-Апр-10 (2)
>perl а подробнее
я набросал такое
#!/bin/perl -w open FH, "<", "1.txt";
$l = <FH>;
$position=tell(FH);
seek(FH,$position+10,1); print "\"$l\"";
print $position;
close FH;
но как добавить бы перенос по строчно строка и 60 символов в ней и так переносило чтоб
- Конвертирование текста, Pahanivo, 17:59 , 01-Апр-10 (3)
N - требуемая длина1: читаем строку в строковый буфер (while EOF)
2: отсекаем \n
3: конкатинируем с предыдущей прочитанной (если такая имеется)
4: длина буфера > N ?
нет : goto 1
да : отсекаем N, добавляем \n, записываем в выходной файл
- Конвертирование текста, Ami, 08:41 , 02-Апр-10 (4)
>N - требуемая длина
>
>1: читаем строку в строковый буфер (while EOF)
>2: отсекаем \n
>3: конкатинируем с предыдущей прочитанной (если такая имеется)
>4: длина буфера > N ?
> нет : goto 1
> да : отсекаем N, добавляем \n, записываем в выходной файл
>
>все понятно но как вот в чем вопрос я с перлом не особо( а примером кода не могли бы продемонстрировать
Спасибо.
- Конвертирование текста, Pahanivo, 09:33 , 02-Апр-10 (5)
>[оверквотинг удален]
>> нет : goto 1
>> да : отсекаем N, добавляем \n, записываем в выходной файл
>>
>>
>
>все понятно но как вот в чем вопрос я с перлом не
>особо(
>
>а примером кода не могли бы продемонстрировать
>Спасибо. примеры построчного чтения для readlline - см в мануале
chomp - отрезка конца
. - конкатенация
- Конвертирование текста, Ami, 17:25 , 06-Апр-10 (6)
>[оверквотинг удален]
>>
>>все понятно но как вот в чем вопрос я с перлом не
>>особо(
>>
>>а примером кода не могли бы продемонстрировать
>>Спасибо.
>
>примеры построчного чтения для readlline - см в мануале
>chomp - отрезка конца
>. - конкатенация набросал примерно open F, "<lolo" or die "Can't open!";
@f=<F>; for($i=0; $i<=$#f; $i++) {
$f[$i] =~ s/(.{75})/"$1"\n/g;
print "$f[$i]\n";
}
close F; но он не отрабатывает если в тексте попадается точка(( как обойти пользовался также
use Text::Wrap
сним получше ,но он умеет только ставить кавычку вначале а в конце нет(
- Конвертирование текста, Anatoly, 08:59 , 08-Апр-10 (7)
скрипты, перлы... в vim три кнопки нажать$vim file
gqG :help gq
- Конвертирование текста, Pahanivo, 10:03 , 08-Апр-10 (8)
>скрипты, перлы... в vim три кнопки нажать
>
>$vim file
>gqG
>
>:help gq нажать != автоматизация
- Конвертирование текста, Andrey Mitrofanov, 12:33 , 08-Апр-10 (9)
Не-е-е, правильный ответ ~~ "emacs --batch ..." со скриптом %->
|
Версия для распечатки
