擅长:python、mysql、java
<p>在您的示例中,Perl中的这一点很有用:</p>
<pre><code>$s = "exclaimed Wade. Indeed, ...";
do {
$prev = $s;
$s =~ s/(^\s*|[.!?]\s+)[a-z][^.!?]*[.!?]\s*/$1/gs;
} until ($s eq $prev);
</code></pre>
<p>如果没有do循环,则无法删除多个连续的句子。在</p>
<p>请注意,完美地完成这项工作几乎是<a href="http://en.wikipedia.org/wiki/AI-complete" rel="nofollow noreferrer">AI-complete</a>。
请看这个问题,看看你永远不会正确回答的句子:
<a href="https://stackoverflow.com/questions/2024338/latex-sometimes">LaTeX sometimes puts too much or too little space after periods</a>。在</p>
<p>当然,你可以用LaTeX的启发式方法来判断句子的结束句点,并且大多数时候都是正确的。在</p>