Perl'deki dizeleri karşılaştırırken aksanları nasıl göz ardı edebilirim?

Question

İnsanların doğru cevabı yazdıkları ile eşleştirdiğim bu sınav uygulamasına sahibim. Şimdilik, ben ne temelde şudur: O, güzel

if ($input =~ /$answer/i) { 
    print "you won"; 
} 

cevap "balık", sanki kullanıcı "bir balık" yazabilirsiniz ve güzel bir cevap sayılabilir.

Karşılaştığım sorun şu ki, kullanıcılar Fransızca olduğum için ve "taton" yazan bir kullanıcı ve "tâton" olmanın cevabını kabul etmek istiyorum.

Yani, neler yapabileceğini şöyledir:

use POSIX qw(locale_h); 
use locale; 
setlocale(LC_TYPE, "fr_FR.ISO8859-15"); 
setlocale(LC_COLLATE, "fr_FR.ISO8859-15"); 

Ve onay rutininde

bir yapın: cevapla aynı şekilde

$input = lc($input); 
$input =~ tr/àáâãäåçèéêëìíîïñòóôõöùúûüýÿ/aaaaaaceeeeiiiinooooouuuuyy/; 

ve bir şey.

Bundan hoşlanmıyorum çünkü kodları zorlamam gerekiyordu ve karar verdiğim gün UTF-8 dünyası için ISO-8859-15 dünyasından ayrılıyorum, mahkum oldum.

Yani, "tâton" eq "taton", "maçon" eq "macon" veya "macon" =~ /maçon/ doğru yapacak dizeleri karşılaştırmak için bir yol, arıyorum.

Answer 1

CPAN'dan (veya Text::Unaccent::PurePerl) Text::Unaccent modülünü deneyin.

Answer 2

Bu, normal ifadeleri çağırmak için uygun bir fırsat gibi görünmüyor - yalnızca bir "kabul edilebilir" yanıtlar listesine sahip olmanız ve "a", "" ve "dile özgü eşdeğerleri" gibi ifadesiz sözcükleri kaldırmak için bazı filtrelemelerin olması gerekir. .

Ne yaparsanız yapın, karakter kodlama farkında ve dil farkında olması gerektiğini açık görünüyor. Düzenli ifadeler genellikle değildir.