perl - Perl を使用して段落を文に変換する

Question

私はPerlプログラミングをしています。段落を読んで、各文を行として出力する必要があります。

誰でもそれを行う方法を知っていますか?

以下は私のコードです：

#! /C:/Perl64/bin/perl.exe

use utf8;

if (! open(INPUT, '< text1.txt')){
die "cannot open input file: $!";
}

if (! open(OUTPUT, '> output.txt')){
die "cannot open input file: $!";
}

select OUTPUT;

while (<INPUT>){
print "$_";
}

close INPUT;
close OUTPUT;
select STDOUT;

Answer 1

文の識別は非常に難しく、言語固有です。助けが必要です。たぶん、 Lingua::EN::Sentenceがいいのではないでしょうか?

Answer 2

段落を文字列として指定した場合、文の終わりを示す文字でそれをsplit()できます。

例えば：

my @sentences = split /[.?!]/, $paragraph;