Perl Regex - Заменить окончание предложений на период, одно пробел, заглавную букву

Question

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

Например, поворачиваясь:

the quick.brown fox. jumped over! the slow. dog 

В:

The quick. Brown fox. Jumped over. The slow. Dog 

Вот что я до сих пор:

my $test = ucfirst('the quick.brown fox. jumped over! the slow. dog'); 
$test =~ s/([\.\?!]\s*[a-z])/\U$1/mg; 
print $test; 

Результат:

The quick.Brown fox. Jumped over! The slow. Dog 

Мне не повезло выяснить, как заставить период и одиночные пробелы.

Любая помощь приветствуется, спасибо!

Answer 1

Я думаю, что это будет делать то, что вы хотите:

my $test = ucfirst('the quick.brown fox. jumped over! the slow. dog'); 
$test =~ s/[.?!]\s*([a-z]?)/. \U$1/img; 
say $test; 

Как вы можете видеть, я переместил отверстие ( так что единственное, что захваченный было письмо, которое вы хотите преобразовать в верхний регистр. Все части матча с левой стороны будут удалены/заменены, скобки захвата (...) + $1 позволяют переносить часть этого на другую сторону.

Обратите внимание, что вам не требуется обратная косая черта в [...].

@ Редакция Borodin добавила ? после [a-z], что делает письмо необязательным. Это позволяет нормализовать пунктуацию и следующие пробелы, даже если следующая вещь не является буквой, или если это конец строки.