perl - Unix と Perl でギリシャ語の単語を検索する

Question

ギリシャ語のtxtファイルがあり、perlとbashを使用して特定の単語を検索したい...単語は?a?、t?、e??のようなものです

私は英語で単語を検索していましたが、ギリシャ語に置き換えたいのですが、得られるのは???だけです 主に... Perlの場合：

my %word = map { $_ => 1 } qw/name date birth/;

そしてbashの場合

for X in name date birth
do

誰かが私を助けてくれますか？

Answer 1

#!/usr/bin/perl
use strict;
use warnings;

# Tell Perl your code is encoded using UTF-8.
use utf8;

# Tell Perl input and output is encoded using UTF-8.
use open ':std', ':encoding(UTF-8)';

my @words = qw( καί τό εἰς );

my %words = map { $_ => 1 } @words;
my $pat = join '|', map quotemeta, keys %words;

while (<>) {
   if (/$pat/) {
      print;
   }
}

使用法：

script.pl file.in >file.out

ノート：

• ソース コードが UTF-8 を使用してエンコードされていること、および を使用していることを確認してくださいuse utf8;。
• この行を使用しuse open、データ ファイルに適切なエンコードを指定してください。(UTF-8でない場合は変更してください。)