regex - 使用正则表达式计算 Perl 中的句子/单词

Question

这个正则表达式已经过时了。 :(
还有一个问题:
我需要计算一个段落中的单词数和句子数。我尝试使用的代码是这样的:

my $sentencecount = $file =~ s/((^|\s)\S).*?(\.|\?|\!)/$1/g;
my $count = $file =~ s/((^|\s)\S)/$2/g;
print "Input file $ARGV[1] contains $sentencecount sentences and $count words.";

我的结果对于两个计数都返回 63。我知道这是不正确的，至少就字数而言。这是使用替代计数过程的结果吗？如果是这样，我该如何纠正？

Answer 1

我建议查看 perl split功能，见 perlfunc(1) :

           If EXPR is omitted, splits the $_ string.  If PATTERN is also
           omitted, splits on whitespace (after skipping any leading
           whitespace).  Anything matching PATTERN is taken to be a
           delimiter separating the fields.  (Note that the delimiter may
           be longer than one character.)