Forum Webscript.Ru

Программирование => Perl => Тема начата: Andron от 29 Июля 2003, 11:00:51

Название: Как переформатировать текст. файл
Отправлено: Andron от 29 Июля 2003, 11:00:51

Есть  текстовый файл:
В нем строки(много) :

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

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

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

Название: Как переформатировать текст. файл
Отправлено: NeoNox от 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;