用户输入一组带有重音和波浪号的名称:
Renato Núñez, David DeJesús, and Edwin Encarnación
Run Code Online (Sandbox Code Playgroud)
我的数据库为这些人设置了英文名称
@names = ('Renato Nunez','David DeJesus','Edwin Encarnacion');
Run Code Online (Sandbox Code Playgroud)
我希望对这些名称进行正则表达式匹配.
$string = "Renato Núñez, David DeJesús, and Edwin Encarnación";
foreach my $name (@names) {
print "found:$name\n" if ($name =~ /$string/);
}
Run Code Online (Sandbox Code Playgroud)
如目前所示,我没有比赛.
我尝试了这个,但它没有用.
$string = "Renato Núñez, David DeJesús, and Edwin Encarnación";
foreach my $name (@names) {
$name =~ s|a|[áa]|;
$name =~ s|e|[ée]|;
$name =~ s|i|[íi]|;
$name =~ s|o|[óo]|;
$name =~ s|u|[úu]|;
$name =~ s|n|[ñn]|;
# Originally: print "found:$name\n" if ($name =~ /$string/);
# …Run Code Online (Sandbox Code Playgroud)