从Perl中的文本文件逐行读取并折叠每行的大小写

Question

我正在尝试在Perl中读取文本文件。对于每一行，我想将句子分成单词折叠，然后再进行处理。从文件中读取时，我不确定折叠大小写的语法。

while ($line = <$fh>){
    @words = split /\s+/, $line;
    foreach my $word (@words){
        $hashCounter{$word}++;
}

Answer 1

您可以使用fc()，

$hashCounter{ fc($word) }++;

来自perldoc -f fc

  

返回EXPR的个案翻译版本。这是在双引号字符串中实现\ F escape的内部函数。   Casefolding是将字符串映射到表单差异被删除的表单的过程;比较案例折叠形式的两个字符串实际上是一种询问两个字符串是否相等的方式，无论大小写如何。