Question

我在Perl中相当新，并且我一直与R一起工作，有些事我无法真正理解。

＆＃xA;＆＃xA;

我有一系列哈希。在所有哈希中，键是相同的，但值是不同的。我想得到其中具有特定值的哈希的数量，因为在该哈希中还有我想要的另一个值（并且在不同的样本中有所不同）。

＆＃xA;＆＃xA;

我不知道这是否是我应该解决的方式，但我能想到的是这个。这是一个数组：

＆＃xA;＆＃xA;

  $ VAR16 = {＆＃xA; 'harmonized_name'=＆gt; 'geo_loc_name'，＆＃XA; 'attribute_name'=＆gt; 'geo_loc_name'，＆＃XA; 'content'=＆gt; '没有决定'，＆＃xA; 'display_name'=＆gt; '地理位置'}＆＃xA; $ VAR17 = {＆＃xA; 'harmonized_name'=＆gt; 'env_package'，＆＃XA; 'attribute_name'=＆gt; 'env_package'，＆＃XA; 'content'=＆gt; '丢失'，＆＃XA; 'display_name'=＆gt; 'environment package'}＆＃xA;

＆＃xA;＆＃xA;

在这个例子中，我希望哈希的'content'值具有'harmonized_name '= env_package

＆＃xA;

Answer 1

您可以使用<route id="db-import-route"> <from uri="timer://queryTimer?period=2s" /> <setBody> <constant> SELECT * FROM address </constant> </setBody> <to uri="jdbc:dataSource" /> <split> <simple>${body}</simple> <process ref="SqlDecoder" /> <process ref="Validator" /> </split> </route>过滤所有grep的数组元素，然后检查'harmonized_name' = env_package的值，

content

输出

use strict;
use warnings;

my @AoH = (
  {
    'harmonized_name' => 'geo_loc_name',
    'attribute_name' => 'geo_loc_name',
    'content' => 'not determined',
    'display_name' => 'geographic location'
  },
  {
    'harmonized_name' => 'env_package',
    'attribute_name' => 'env_package',
    'content' => 'missing',
    'display_name' => 'environmental package'
  }
);

my @result = grep { $_->{harmonized_name} eq "env_package" } @AoH;

print $_->{content}, "\n" for @result;

获取哈希值

1 个答案: