我正在尝试制作一个脚本，该脚本将接受带有重音字符的字符串，并返回它们的非重音字符。
在四处寻找帮助和教程后，我设法做了一些几乎可以工作的东西，但我遇到了一个问题。
我的代码做我想做的，只要我希望它在一个简单的字符串上完成，但是当我想使用 <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/
我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚
我有一个对象has_many应呈现为xml的子对象。这不是问题。我的问题是我创建了一个Hash包含此数据，就像解析器需要它一样。但是rails自动将整个文件包含在.........我需要摆脱type="array"和我该如何处理？我没有在文档中找到任何内容。 最佳答案 我遇到了同样的问题；这是我的XML:我在用这个:entries.to_xml将散列数据转换为XML，但这会将条目的数据包装到中所以我修改了:entries.to_xml(root:"Contacts")但这仍然将转换后的XML包装在“联系人”中，将我的XML代码修改为
在我的应用程序中，我需要能够找到所有数字子字符串，然后扫描每个子字符串，找到第一个匹配范围(例如5到15之间)的子字符串，并将该实例替换为另一个字符串“X”。我的测试字符串s="1foo100bar10gee1"我的初始模式是1个或多个数字的任何字符串，例如，re=Regexp.new(/\d+/)matches=s.scan(re)给出["1","100","10","1"]如果我想用“X”替换第N个匹配项，并且只替换第N个匹配项，我该怎么做？例如，如果我想替换第三个匹配项“10”(匹配项[2])，我不能只说s[matches[2]]="X"因为它做了两次替换“1fooX0barXg
关闭。这个问题需要detailsorclarity.它目前不接受答案。想改进这个问题吗？通过editingthispost添加细节并澄清问题.关闭8年前。Improvethisquestion在首页我有:汽车:VolvoSaabMercedesAudistatic_pages_spec.rb中的测试代码:it"shouldhavetherightselect"dovisithome_pathit{shouldhave_select('cars',:options=>['volvo','saab','mercedes','audi'])}end响应是rspec./spec/request
我想设置一个默认日期，例如实际日期，我该如何设置？还有如何在组合框中设置默认值顺便问一下，date_field_tag和date_field之间有什么区别？ 最佳答案 试试这个:将默认日期作为第二个参数传递。youcorrectlysetthedefaultvalueofcomboboxasshowninyourquestion. 关于ruby-on-rails-date_field_tag，如何设置默认日期？[rails上的ruby]，我们在StackOverflow上找到一个类似的问
我将我的Rails应用程序部署到OpenShift，它运行良好，但我无法在生产服务器上运行“Rails控制台”。它给了我这个错误。我该如何解决这个问题？我尝试更新rubygems，但它也给出了权限被拒绝的错误，我也无法做到。railsc错误:Warning:You'reusingRubygems1.8.24withSpring.UpgradetoatleastRubygems2.1.0andrun`gempristine--all`forbetterstartupperformance./opt/rh/ruby193/root/usr/share/rubygems/rubygems
我正在尝试从Postgresql表(table1)中获取数据，该表由另一个相关表(property)的字段(table2)过滤。在纯SQL中，我会这样编写查询:SELECT*FROMtable1JOINtable2USING(table2_id)WHEREtable2.propertyLIKE'query%'这工作正常:scope:my_scope,->(query){includes(:table2).where("table2.property":query)}但我真正需要的是使用LIKE运算符进行过滤，而不是严格相等。然而，这是行不通的:scope:my_scope,->(que
我使用Nokogiri(Rubygem)css搜索寻找某些在我的html里面。看起来Nokogiri的css搜索不喜欢正则表达式。我想切换到Nokogiri的xpath搜索，因为这似乎支持搜索字符串中的正则表达式。如何在xpath搜索中实现下面提到的(伪)css搜索？require'rubygems'require'nokogiri'value=Nokogiri::HTML.parse(ABBlaCD3"HTML_END#my_blockisgivenmy_bl="1"#my_eqcorrespondstothisregexmy_eq="\/[0-9]+\/"#FIXMEThefoll
这个问题在这里已经有了答案:关闭10年前。PossibleDuplicate:Pythonconditionalassignmentoperator对于这样一个简单的问题表示歉意，但是谷歌搜索||=并不是很有帮助；)Python中是否有与Ruby和Perl中的||=语句等效的语句？例如:foo="hey"foo||="what"#assignfooifit'sundefined#fooisstill"hey"bar||="yeah"#baris"yeah"另外，类似这样的东西的通用术语是什么？条件分配是我的第一个猜测，但Wikipediapage跟我想的不太一样。
我从Ubuntu服务器上的RVM转移到rbenv。当我使用RVM时，使用bundle没有问题。转移到rbenv后，我在Jenkins的执行shell中收到“找不到命令”错误。我内爆并删除了RVM，并从~/.bashrc'中删除了所有与RVM相关的行。使用后我仍然收到此错误:rvmimploderm~/.rvm-rfrm~/.rvmrcgeminstallbundlerecho'exportPATH="$HOME/.rbenv/bin:$PATH"'>>~/.bashrcecho'eval"$(rbenvinit-)"'>>~/.bashrc.~/.bashrcrbenvversions