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

Question

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

我尝试像普通文件一样执行操作，但出现错误，例如 打印中的宽字符位于第 no --print 语句行。

我

   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 上出现过很多次了，这根本不是日语特有的。 （Google，SO 标签，SO 搜索）

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

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