我正在尝试制作一个脚本,该脚本将接受带有重音字符的字符串,并返回它们的非重音字符。
在四处寻找帮助和教程后,我设法做了一些几乎可以工作的东西,但我遇到了一个问题。
我的代码做我想做的,只要我希望它在一个简单的字符串上完成,但是当我想使用 <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>
= űáéúőóüöí
最佳答案
在我的例子中,你的程序得到了预期的结果:
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__
öüóőúéáű
关于<STDIN> 上的正则表达式找不到匹配项 - Perl,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30616261/