1

PodSpelling（通过 Perlcritic 运行）抱怨“html”，即使我已将其添加到stopwords：

=for stopwords html

=head2 some function

Generates an index.html page.

=cut

这得到：

robert@saaz:~$ perlcritic --brutal  test.pl | grep html
Check the spelling in your POD: html at line 1, column 1.  See page 148 of PBP.  (Severity: 1)

（我通过管道输出grep以忽略这个最小示例中与拼写无关的其他抱怨。）

如果我将 POD 更改为使用C<index.html>or F<index.html>，或者将其重写为a .html file，或者添加“index.html”作为停用词，拼写检查器会很高兴。第一个对我来说很有意义（不要检查代码片段或文件名），但我看不出“index.html”和“.html”之间的最大区别是什么。

它是否可以使用，=for stopwords index.html因为它在空白旁边时会忽略点？不过，我只是在这里猜测。

为什么我stopword html对“index.html”不起作用？如果我不想使用C<...>或如何解决这个问题F<...>？

4

1 回答 1

2

Pod::Wordlist 的作者就是这样实现的。他们希望确保诸如“ eg ”之类的缩写将作为一个整体传递给拼写检查器。由于停用词的拆分和剥离是在单词列表传递给拼写检查器之前完成的，因此您不能同时拥有两者。另一方面，默认拼写检查器是aspell. 在我看来，无论是否按句点拆分，缩写都通过了检查。

所以你可以像这样改变 Pod/Wordlist.pm：

#line 129
sub _strip_a_word {
    my ($self, $word) = @_;
    my $remainder;

    # try word as-is, including possible hyphenation vs stoplist
    if ($self->is_stopword($word) ) {
        $remainder = '';
    }

        # check individual parts of hyphenated or period separated word,
        # keep whatever isn't a stopword as individual words
        # aspell will accept split words for abbreviations as well
        # 'e.g' passes like 'e g' does
    elsif ( $word =~ /-|\./ ) {
            my @keep;
            for my $part ( split /-|\./, $word ) {
                push @keep, $part if ! $self->is_stopword( $part );
            }
            $remainder = join(" ", @keep) if @keep;
    }
    # otherwise, we just keep it
    else {
        $remainder = $word;
    }
    return $remainder;
}
于 2020-11-28T08:12:44.900 回答