perl 中的审查词

Question

我正在尝试制作一个经过审查的文字脚本， 我不知道为什么，但我的脚本没有正确审查这些词。 审查状态为80%~

这是我的代码：

    #!/usr/bin/perl -w
    use strict;

    my @text;
    my @cencoredText;

    my $file = "blabla\\text.txt";
    open(FH, "<", $file) or die "cant open file";

    while(<FH>)
    {
        push(@text,$_);
    }
    close(FH);

    my $cencoredFile = "blabla\\forbidden.txt";
    open(FH2, "<", $cencoredFile) or die "cant open file";

    while(<FH2>)
    {
        push(@cencoredText,$_);
    }

    close(FH2);

    for(my $i=0; $i<@cencoredText; $i++)
    {
        for(my $j=0; $j<@text; $j++)
        {
            $text[$j] =~ s/${cencoredText[$i]}/censored/g;
        }

    }

这两个文件打开，perl 脚本从它们那里获取信息.. 我不知道怎么了。。 谢谢！

Answer 1

要回答您的直接问题，您需要在读入两个数组@text 和@censoredText 的每个输入行末尾的换行符chomp：

...
while( <FH> ) {
    chomp;
    push(@text,$_);
}
close(FH);

my $cencoredFile = "blabla\\forbidden.txt";
open(FH2, "<", $cencoredFile) or die "cant open file";

while(<FH2>) {
    chomp;
    push(@cencoredText,$_);
}
...

与您所问的内容没有直接关系的几点：

数组真的是指示单词应该被审查的最佳数据结构选择吗？

我会说不。一个问题是，要识别应该审查的单词，您当前循环遍历@censoredText 中的每个单词，然后对于每个单词，您遍历@text 的每一行。如果你有 N 行文本和 M 个禁用词，那么你的整体复杂度为O(N*M)，随着 N 和 M 的增加，这并不是很好。如果您使用哈希来表示应该被审查的单词，您可以将其减少到 O(max(N,M))。

或者，您可以使用每个禁用词构建一个模式，并在整个输入文件中进行全局替换。