perl - 如何使用 perl 脚本读取具有日语上下文的文件？

Question

我想在某些具有日语上下文的文件组中搜索一个单词（日语）。

我试图像普通文件一样做，但我在第 no --print statement line 的行中遇到了像宽字符这样的错误。

我用了

   use Unicode::Japanese;
   use Unicode::Japanese qw(PurePerl);

正如某些网站中给出的那样。

这是我正在使用的代码

    my $dr="My_Directory" ;    
    opendir DIR, $dr ;    
    my @txtfiles=grep { /\.txt$/ } readdir(DIR) ;    
    foreach $file(@txtfiles)    
    {       
        my $count=0;    
        my @words=();
        open(FILE, $dr.$file);
        while (<FILE>) 
        {
            push(@words, split(/\s+/));                
        } 
        foreach $word (@words) 
        {
            if($word=~ m/$word_to_search/i) 
            {                        
                $count++;                   
            }        
        }
        print "$word_to_search occurs $count times in $file file\n";  
    }

任何想法都会很有帮助。

提前致谢。

PNVR

Answer 1

请首先阅读http://p3rl.org/UNI并应用那里给出的建议。编码的话题已经在 Stack Overflow 上出现过很多次了，这完全不是针对日语的。（谷歌，SO标签，SO搜索）

您提到您将文件保存为 UTF-8。为了让您快速入门，这是一种阅读方式：

open my $fh, '<:encoding(UTF-8)', 'filename.txt';