简单Perl字符串与特殊字符匹配，即‘
简单Perl字符串与特殊字符匹配，即‘
提问于 2013-07-07 10:34:41
my $var_cot_descn="Veteran's Affairs";
my %cot_descn= ("Correctional","Veteran's Affairs","State Pharmacy Assistance Program","VA Medical Center","VA Mail Order Pharmacy","PHS 340B Entity");
if (exists $cot_descn{$var_cot_descn}){
print "CustomerDomain=\"GOV\"
/>
</Org>
\n";
}
else{
print "CustomerDomain=\"COM\"
/>
</Org>
\n";
}除了我比较“老兵事务”导致if条件失败之外，所有的工作都很好。
我该如何解决这个问题呢？
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-07-07 11:03:55
您的哈希没有"Veteran's Affairs"键，它有一个"Veteran's Affairs"值。如果您以更常见的方式定义散列：
my %cot_descn = (
"Correctional" => "Veteran's Affairs",
"State Pharmacy Assistance Program" => "VA Medical Center",
"VA Mail Order Pharmacy" => "PHS 340B Entity"
);那么结构就会更清晰。由于没有"Veteran's Affairs"密钥，该测试当然会将您转到else分支：
if (exists $cot_descn{$var_cot_descn})当$var_cot_descn为"Veteran's Affairs"时。
也许你的%cot_descn中的第一个键/值是反向的。
Stack Overflow用户
发布于 2013-07-07 20:29:08
你的意思不是：
#!/usr/bin/env perl
use strict;
use warnings;
# --------------------------------------
use Data::Dumper;
# Make Data::Dumper pretty
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
# Set maximum depth for Data::Dumper, zero means unlimited
local $Data::Dumper::Maxdepth = 0;
# --------------------------------------
my @cot_descn = (
"Correctional",
"Veteran's Affairs",
"State Pharmacy Assistance Program",
"VA Medical Center",
"VA Mail Order Pharmacy",
"PHS 340B Entity",
);
my %cot_descn = map { $_ => 1 } @cot_descn;
print Dumper \%cot_descn;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/17508762
复制相关文章
相似问题
腾讯云开发者
