【发布时间】：2013-12-04 13:34:10
【问题描述】：
我有以下要求
- 读取示例数据文件/tmp/user_defined_connection.ini
MANAGEMENT=IDL||CIDL
NORTH=IDL,NORTHERN||VIDL,NORTH||IDL,NORTH
SOUTH=IDL,SOUTHERN||CIDL,SOUTH||IDL,SOUTH
这里的每个 Key 都可以有多个这样的值，“,”表示 AND 操作，“||”表示是 OR 运算
我需要根据另一个字符串 $instance 和每个值来检查它，所以我使用第一个键 MANAGEMENT 并获取它的值并检查 isnttance ....
$instance 包含 IDL 或 CIDL
在下一次迭代中，将根据第二个键 NORTH 检查相同的实例，如果为 true，则函数应返回 NORTH，所以基本上我需要针对每个值逐一检查实例，然后返回我找到的键最后...下面是写到现在的代码
#!/sbin/perl -w
use strict;
use Data::Dumper;
my @providerCloudSequence;
my %idlcodes;
open(my $iniFH, '<', '/tmp/user_defined_connection.ini')
or die "Unable to open file:$!\n";
while(<$iniFH>) {
chomp;
my @providerCloudClass = split('=',$_);
push @providerCloudSequence, $providerCloudClass[0];
if ($@) {
print "Script Failed to get the Sequence....Exiting the Script\n";
exit 1;
}
#my %idlcodes = map { split /=|\s+/; } <$iniFH>;
my ($k, @r) = split /=|\Q||/;
$idlcodes{$k} = [ map [ split /,/ ], @r ];
}
if($@){
print "Script Failed to create the hash....Exiting the Script\n";
exit 1;
}
close $iniFH;
print Dumper \%idlcodes;
my @interfaceSampleAliases = { "AFGHD_NORTH",
"NORTHERN_IIDID_IPV123",
"IDL_SOUTH",
"IDL_SOUTH_IUID",
"SOUTHERN_IND_IPV" };
foreach (@interfaceSampleAliases){
my $correctKey = getCorrectKey($_, %idlcodes, @providerCloudSequence)
print $correctKey;
}
}
# Providercloudsequence helps to maintain the precedence of the input file
# idlcodes is the hasp map where key is the key from file and value is an arracy of arrays ...see below the output of same
sub getCorrectKey($$$){
my $interfaceAlias = $_[0];
foreach ($_[2]) {
# This is where I need the help , I want to get the value from
# hash %idlcodes using the key from @providerCloudSequence
# The value of %idlcodes is kind of multiple Arrays where I want to
# grep $interfaceAlias against each with a AND in between elements
# and OR in between arrays , if true this is match
}
}
##Data Dumper 输出：哈希看起来像
'NORTH_IPV' => [
[
'IDL',
'NORTHERN'
],
[
'VIDL',
'NORTH'
],
[
'IDL',
'NORTH'
]
],
'MANAGEMENT' => [
[
'IDL'
],
[
'CIDL'
]
],
'SOUTH_IPV' => [
[
'IDL',
'SOUTHERN'
],
[
'CIDL',
'SOUTH'
],
[
'IDL',
'SOUTH'
]
]
InterfaceAlias correctKey
"AFGHD_NORTH" Doesnt Match anything so return NULL
"NORTHERN_IIDID_IPV123" Doesnt Match anything so return NULL
"IDL_SOUTH", SOUTH_IPV
"IDL_SOUTH_IUID", SOUTH_IPV
"SOUTHERN_IND_IPV" Doesnt Match anything so return NULL
"IDL_NORTH_IPV" NORTH_IPV
"IDL_ABDGJF" MANAGEMENT
在这个例子中检查应该如何工作
检查 InterfaceAlias 是否包含 (IDL OR CIDL) ，然后检查相同的 interfaceAlias 是否包含 [(IDL AND NORTH) OR (VIDL AND NORTH) OR (IDL AND NORTHERN) ，然后检查相同的 interfaceAlias 是否包含 [(IDL AND SOUTH)或（CIDL 和南部）或（IDL 和南部）]
所以我们必须检查哈希 %idlcodes 中的所有值并返回匹配为 TRUE 的最后一个键
序列由数组@providerCloudSequence管理
单词的相邻并不重要 例如 SOUTH_XXX_CIDL 甚至“SOUTH IDL IPV WITH SPACES”应该匹配 SOUTH_IPV....这些只是示例，它基本上是一个包含匹配....虽然文件的结构是固定的。 ..（数据可能会有所不同）
【问题讨论】：
-
您需要更好、更准确的“getCorrectKey”子输入和预期返回值的详细信息。很难理解你真正想要做什么！希望这会有所帮助
-
@Vorsprung 我已经添加了示例输入和输出
-
@mpapec ....建议的新帖子
-
你的例子正确吗？根据您的 ini 文件，
SOUTH对应于IDL,SOUTHERN或CIDL,SOUTH而不是IDL,SOUTH。另外，SOUTH_XXX_CIDL之类的内容会匹配任何内容，还是单词的顺序和相邻性很重要？ -
@Borodin 没有一个例子是正确的，看最后一个值 SOUTH_IPV 确实有一个值 IDL,SOUTH ....单词的相邻性并不重要是的 SOUTH_XXX_CIDL 甚至“SOUTH IDL IPV WITH SPACES”应该匹配SOUTH_IPV....这些只是示例，它基本上是一个包含匹配....虽然文件的结构是固定的...（数据可能会有所不同）