Очень часто в книжках встречается ситуация когда два предложения не разделены пробелом. Править вручную это очень долго. Вчера попытался написать замену на Perl для своего редактора опечаток. Следуя логике, нужно было добавить пробел после любой точки за которой идет любой символ кроме пробельного. Для этого написал так:

Код:

$string =~ s{\.(\S)}{\. $1}g; # Любая точка после которой идет не пробельный символ заменяется на точку и тот же символ разделенные пробелом.

Но я не учел, что у нас .fb2 и в конце каждого абзаца перед точкой стоит символ "<". Так что эта замена и туда впихнула пробел. Можно было, конечно, следом применить замену убирающую пробел перед "<", но это ж сколько лишних телодвижений. Пробовал писать по разному. Ничего не помогало.

Код:

$string =~ s{\.([^<][\S])}{\. $1}g; $string =~ s{\.([<{0,0}\S])}{\. $1}g; $string =~ s{\.(<{0,0}\S)}{\. $1}g; $string =~ s{\.([[^<][\S]])}{\. $1}g; # и это даже не все варианты

В итоге просто попробовал исключить из класса символ "<" и посмотреть, что из этого выйдет.

Код:

$string =~ s{\.([^<])}{\. $1}g;

И это сработало. Теперь замена добавляет пробел между предложениями только там где его нет, и не добавляет его перед символом "<".
Вот такую полезную штуку я узнал самостоятельно. Класс содержащий все буквенно-цифровые символы кроме одного, исключая пробельные, описывается классом, в котором исключен именно этот один символ. Т. е. [^символ который нужно исключить]. Как по мне для редактирования .fb2 это архиполезная фича.