Есть две строки:

О тарифе на услуги по передаче электрической энергии по сетям ОАО "Лесопромышленная холдинговая компания "Коношалес"
О тарифе на услугу по передаче электрической энергии по сети ОАО "Лесопромышленная холдинговая компания "Коношалес"


Необходимо визуально показать разницу между двумя строками. Как-нибудь так:

О тарифе на услуги по передаче электрической энергии по сетям ОАО "Лесопромышленная холдинговая компания "Коношалес"
О тарифе на услуг<у> по передаче электрической энергии по сет<и> ОАО "Лесопромышленная холдинговая компания "Коношалес"


Уже голову сломал, не знаю как это сделать   

Это сообщение отредактировал(а) Suppir - 22.4.2011, 17:46

Algorithm::Diff не подойдет?

diff работает построчно. Смотрите на программу wdiff и алгоритм, который в ней реализован.

split "\\s+"
или
split ""

String::Diff ?

Suppir, 
я бы разбил на массив по слову в массиве и, если слово не совпадает, то
обрамлять <услугу>
слова пока научитесь сравнивать, а там и до букв дойдет;))

Suppir, мне кажется то, что предложил DurRandir, как раз ваш случай

на выходе


Это сообщение отредактировал(а) SkoobyDoo - 1.5.2011, 23:36

SkoobyDoo, спасибо. А можно ли сделать то же самое, но с помощью Algorithm:diff ?
Просто string:diff нет в стандартном ActivePerl.

Suppir, 
в strawberry есть, Larry Wall именно им рекомендует пользоваться,
activeperl - все-таки плох

mishnik, дело в том, что мне нужно будет распространить скрипт по клиентам. У них стоят Perl 5.8, 5.10 и выше, в основном ActiveState (я раньше рекомендовал им). Устанавливать модули 95% пользователей не умеет (особенно, если требуется компилятор). Поэтому все скрипты пишу таким образом, чтобы хватило стандартного ActivePerl...

Добавлено @ 12:37
Strawberry я пробовал, когда он только появился. Оказалось, что поиск-замена с регулярными выражениями работает в нем на 30 - 50% медленней, чем в ActivePerl. Возможно, сейчас ситуация и исправилась, кто знает.

p.s. если ставить Strawberry, то какой лучше: тот что на оф. сайте или тот что с Padre?



Это сообщение отредактировал(а) Suppir - 2.5.2011, 12:41

Suppir, а написать простенький скрипт для установки модуля с cpan, или локального зеркала если инета нет?

shamber, никогда не пробовал   

Suppir, 
я бы ставил c padre
и далее с обязательным запуском строки 


и далее ставим любой модуль

mishnik, зачем ему падре на клиентах?

Кстати, насколько я понял, этот padre также основан на Scintilla, как и SciTE.