Text::Sentence - module for splitting text into sentences
use Text::Sentence qw( split_sentences ); use locale; use POSIX qw( locale_h ); setlocale( LC_CTYPE, 'iso_8859_1' ); @sentences = split_sentences( $text );
Text::Sentence module contains the function split_sentences, which splits text into its constituent sentences, based on a fairly approximate regex. If you set the locale before calling it, it will deal correctly with locale dependant capitalization to identify sentence boundaries. Certain well know exceptions, such as abreviations, may cause incorrect segmentations.
The split sentences function takes a scalar containing ascii text as an argument and returns an array of sentences that the text has been split into.
@sentences = split_sentences( $text );
Ave Wrigley <email@example.com>
Copyright (c) 1997 Canon Research Centre Europe (CRE). All rights reserved. This script and any associated documentation or files cannot be distributed outside of CRE without express prior permission from CRE.