нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк) PERL

[newbies]

Здравствуйте уважаемый ALL!

Очень нужен скрипт на PERL для обработки текстовой информации (1251 кириллица, десетки тысяч строк). Примеры текстов, что есть и что надо получить:

Есть: ADR=ЛЕНИНА УЛИЦА 31/2

Надо: ADR=ЛЕНИНА УЛИЦА, Д.31/2

или

Есть: ADR=ЛЕНИНА УЛ. 31к2

Надо: ADR=ЛЕНИНА УЛ., Д.31к2

Название улицы - набор символов произвольной длинны и кол-ва слов (может и латынь, но внутри цифр быть не может), номер дома в конце - просто десятичная цифра или набор символов, начинающийся с цифр типа 31/1 или 31к2.

Вы уж простите что с такой ерундой обращаюсь, но сам пока не программист, а отчет очень нужен. Если в рамках этого форума помощь невозможна, посоветуйте, куда обратиться или сколько это стоит.


В номере дома пробелов быть не может.
Есть и другие строки, без ADR вначале.

Получается, в строке, начинающейся с ADR первый справа пробел - и вставить ", Д."

На PERL потому, что я там могу сам условия первого атрибута в строке (типа ADR) поменять. Тк их там несколько. Ну чтобы более-менее упростить работу Вам.
В принципе, можно на чем угодно написать главное - на выходе текстовый файл с указанными параметрами и возможность изменить первый атрибут.

Спасибо.

[Stilet]

Предположительно тебе нужно чето-то в этом роде (Регулярные выражения - http://ru.wikipedia.org/wiki/Perl_(я...аммирования)):

 $x =~ s/УЛИЦА/УЛИЦА, Д./g;

И

 $x =~ s/УЛ. /УЛ., Д./g;

Читай про них на ссылке.

[wall66]

да, это делается регулярными выражениями, но в общих словах задача сводится к замене последнего пробела в строке на пробел + Д.

[Serge_Bliznykov]

вот.
набросал простую программку. на Delphi.
кое-какой интерфейс присутствует.
(EXE + исходники внутри архива)

[newbies]

Спасибо всем за реакцию, но поверьте, просто совсем нет времени читать про регулярные выражения. Обязательно прочту, как отчет сдам. Казалось задачка простенькая, ан нет...

to Serge_Bliznykov

Спасибо, примерно то что надо. Но:

- В файле есть другие строчки, не начинающиеся с ADR и их необходимо оставить без изменения

- почему-то она берет не только цифры справа, но и буквы и другие символы

- в строке с ADR в начале, первый символ справа (те последний в строке) может быть только цифра (ни скобка, ни точка, ни буква рус/лат. ни какой другой символ)

Вроде чуток осталось

Спасибо!

[Serge_Bliznykov]

- В файле есть другие строчки, не начинающиеся с ADR и их необходимо оставить без изменения

это просто.
в новой версии сделано. (см. приложение)

- почему-то она берет не только цифры справа, но и буквы и другие символы

??? ну, так и должно быть. все символы ДО ПЕРВОГО СПРАВА пробела считаем как номер дома,
пример Ваш же: 31к2
Или Вы что-то другое имеет в виду?!

- в строке с ADR в начале, первый символ справа (те последний в строке) может быть только цифра (ни скобка, ни точка, ни буква рус/лат. ни какой другой символ)

вроде бы это неважно?...

Короче. Приведите пример строчек, для которых алгоритм сработал неверно. (или приложите к сообщению небольшой кусочек из Вашего файла)

p.s. Исходник на Дельфи можете изменять самостоятельно. скачать любую версию Дельфи (можно даже портабле) и компилировать исходник...

[newbies]

то Serge_Bliznykov

Работает!!!!!
Всё как надо

Мегареспект! Спасибо!!!!

[Serge_Bliznykov]

Рад.
Да не за что
Обращайтесь, если что...