split () в Perl

Question

Как разделить текст на предложения. По моему мнению, я должен использовать split () и распечатать их, но у меня их нет. Я только начал изучать Perl.

Мой текст

Блок текста представляет собой стек строк. В случае «слева», 'right' и 'center', это свойство указывает, как встроенный уровень прямоугольники в каждом линейном блоке выровнены относительно левого линейного блока и правые стороны; выравнивание не по отношению к окну просмотра. В в случае 'justify' это свойство указывает, что встроенный уровень коробки должны быть установлены заподлицо с обеих сторон линейного блока, если возможно, путем расширения или сжатия содержимого встроенных блоков, иначе выровнен как для начального значения. Смотрите также «межбуквенный интервал» и "Слово-интервал.

Answer 1

Если это не домашнее задание, я бы просто использовал один из модулей CPAN , который обрабатывает это, скажем Lingua :: Sentence , который, кажется, находится в стадии активной разработки.

Answer 2

Один из способов сделать это - использовать split в сочетании с опозданием.

 perl -nlwe 'print for split /(?<=\S[.!?])\s+/' < data.txt

Это работает для ваших образцов данных.

То, что вы хотите сделать здесь, это исключить пробел, разделяющий предложения. Конец предложения определяется как один из .!?, которому предшествует непробельный символ. Твик по желанию.

Answer 3

попробуй

$paragraph = "Text. Text";
@sentences = split(/\./, $paragraph);
print @sentences;