Добрый вечер. Как реализовать такую возможность:
Вывести из текстовых файлов все найденные токены, обрамив их специальным текстом.
Т.е. для

ыфлоплфРВыпфвгапг84угвРВыфпрг


должно получиться

abcРВdef
abcРВdef

Где РВ - регулярное выражение. Юникода там, слава богу, нет.

Написал такой код:Он не работает. В чем ошибка?

Это сообщение отредактировал(а) arcsupport - 11.3.2011, 23:16

perl -ne 'print "---$&---\n" while(/[A-Z]+/g)' file.txt

---DX---
---ASLD---
---TFGVSD---


file.txt:
aaaaaaaaaaaaaaaaaaaDXbbbbbbbbbbbbbbbbASLDmmmmmmmmmmmmm
ffffffffffTFGVSDlllllllllllllllll

Спасибо. Вопрос решен.