上的正则表达式找不到匹配项 - Perl

Question

我正在尝试制作一个脚本，该脚本将接受带有重音字符的字符串，并返回它们的非重音字符。

在四处寻找帮助和教程后，我设法做了一些几乎可以工作的东西，但我遇到了一个问题。

我的代码做我想做的，只要我希望它在一个简单的字符串上完成，但是当我想使用 <STDIN> 时它什么都不做。 .

我的代码:

use strict;
use warnings;


my %replace = (
    'é' => "e",
    'á' => "a",
    'ő' => "o",
    'ö' => "o",
    'ó' => "o",
    'ú' => "u",
    'ü' => "u",
    'ű' => "u",
    'í' => "i",    
);

my $regex = join "|", keys %replace;
$regex = qr/$regex/;

my $s = <STDIN>;
$s = substr $s, 0, length($s) - 1;

my $var = "$s - öüóőúéáű";

$var =~ s/($regex)/$replace{$1}/g;

$s = $var;

print "$s\n";

如果我输入“öüóőúéáű”到<STDIN>我得到以下输出:

öüóőúéáű - ouooueau

谁能告诉我我做错了什么？

编辑:

我检查过，当像下面这样使用它时(用 <DATA> 而不是 <STDIN> )它工作正常:

use strict;
use warnings;

my %replace = (
    'é' => "e",
    'á' => "a",
    'ő' => "o",
    'ö' => "o",
    'ó' => "o",
    'ú' => "u",
    'ü' => "u",
    'ű' => "u",
    'í' => "i",    
);

my $regex = join "|", keys %replace;
$regex = qr/$regex/;

my $s = <DATA>;
$s = substr $s, 0, length($s) - 1;

my $var = "$s - öüóőúéáű";

$var =~ s/($regex)/$replace{$1}/g;

$s = $var;

print "$s\n";

__DATA__
öüóőúéáű

编辑2:

我现在做了以下事情:my $s = <DATA>." - ".<>;所以它读入 <DATA> 中的字符以及来自 <STDIN>现在我意识到，它仍然与 <DATA> 匹配并注意到 <STDIN> ，所以我得到以下输出:

uaeuoouoi - űáéúőóüöí - uaeuoouoi来自以下代码:

use strict;
use warnings;
use utf8;

my %replace = (
    'é' => "e",
    'á' => "a",
    'ő' => "o",
    'ö' => "o",
    'ó' => "o",
    'ú' => "u",
    'ü' => "u",
    'ű' => "u",
    'í' => "i",    
);

my $regex = join "|", keys %replace;
$regex = qr/$regex/;



my $s = <DATA>." - ".<>;
$s = substr $s, 0, length($s) - 1;

my $var = "$s - űáéúőóüöí";

$var =~ s/($regex)/$replace{$1}/g;

$s = $var;

print "$s\n";

__DATA__
űáéúőóüöí

哪里<STDIN> = űáéúőóüöí

Answer 1

在我的例子中，你的程序得到了预期的结果:

use strict;
use warnings;


my %replace = (
    'é' => "e",
    'á' => "a",
    'ő' => "o",
    'ö' => "o",
    'ó' => "o",
    'ú' => "u",
    'ü' => "u",
    'ű' => "u",
    'í' => "i",    
);

my $regex = join "|", keys %replace;
$regex = qr/$regex/;

my $s = <DATA>;
$s = substr $s, 0, length($s) - 1;

my $var = "$s - öüóőúéáű";

$var =~ s/($regex)/$replace{$1}/g;

$s = $var;

print "$s\n";

__DATA__
öüóőúéáű

我在哪里:

$ perl test.pl
ouooueau - ouooueau

所以你有另一个问题，比如编码问题。

您可以尝试添加到您的程序中。

use utf8;

你也可以像这样简化你的程序:

use strict;
use warnings;

my %replace = (
    'é' => "e",
    'á' => "a",
    'ő' => "o",
    'ö' => "o",
    'ó' => "o",
    'ú' => "u",
    'ü' => "u",
    'ű' => "u",
    'í' => "i",    
);

while(<DATA>) {
    for my $key (keys %replace) {
        s/$key/$replace{$key}/;
    }
    print;
}

__DATA__
öüóőúéáű