split() но сохраните разделитель

Question

Я никогда раньше не использовал Perl, и у меня есть основной вопрос.

my $string1 = "Hi. My name is Vlad. It is snowy outside."; 

my @array = split('.' $string1); ##essentially I want this, but I want the period to be kept 

Я хочу разбить эту строку на '.' Но я хочу сохранить этот период. как это можно сделать?

Answer 1

Вы можете использовать для просмотра назад сделать это:

split(/(?<=\.)/, $string) 

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

Если вы хотите удалить пробел между предложениями в то же время, вы можете изменить его на:

split(/(?<=\.)\s*/, $string) 

Положительные и отрицательные просмотра назад объясняется here

Answer 2

Если вы не возражаете периоды раскалывается в свои собственные элементы в массиве, вы можете использовать круглые скобки, чтобы сказать раскол, чтобы держать их:

my @array = split(/(\.)/, $string);