Автор Тема: Как переформатировать текст. файл  (Прочитано 2255 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Andron

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 3
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Есть  текстовый файл:
В нем строки(много) :

 „Название : Текст1, Текст2; Текст3, Текст4; Текст5."(Разных «Текстов» тоже много.)

Нужно порезать строки так: Всё до двоеточия не нужно, как разделитель – точка с запятой(;), конец – точка-кавычки( .“ - именно так, это важно).
То есть чтобы получилось так:
Текст1, Текст2;
Текст3, Текст4;
Текст5."
...
Текст n-1;
Текст n."

Результат сохранить в файл, но чтобы, скажем каждый «Текст» присутствовал только один раз.

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Как переформатировать текст. файл
« Ответ #1 : 29 Июля 2003, 11:29:26 »
На скорую руку...
#!/usr/bin/perl
use strict;

my $val = qq~"MY VALUES:Test1,Test2;Test3,Test4;Test5."~;
$val =~ s!.+?:+(.+)\\."!$1!;
$val =~ s!;!;\\n!g;

open FILE, \'>\', \'./test.txt\';
print FILE  $val;
close FILE;
« Последнее редактирование: 29 Июля 2003, 11:46:09 от NeoNox »
The documentations is your friend

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28