从傻瓜中提取信息

Question

Closed. This question needs details or clarity. It is not currently accepting answers.

---

想要改进此问题？添加详细信息并通过

闭合 2年前。

Answer 1

看来您有数据结构列表，您将传递给Data :: Dumper。

my @all_results = (
    {
        'fruit'    => 'apple',
        'uniqueID' => 'red'
    },
    {
        'fruit'    => 'apple',
        'uniqueID' => 'green',
    },
);

print Dumper @all_results;

这将用$ var1和$ var2产生输出。

现在，如果要搜索@all_results中的数据结构，其中key unique is 是“ green”，您可以使用 grep 查看每个数据结构，并仅过滤您想要的一个。

( my $filtered ) = grep { $_->{'uniqueID'} eq 'green' } @all_results;
print Dumper $filtered;

请注意，您需要括号（）围绕新变量，因为grep返回列表。您需要在列表上下文中分配，否则您将获得结果的元素数量。 （在这种情况下是1）。

以上代码的输出是

$VAR1 = {
          'uniqueID' => 'green',
          'fruit' => 'apple'
        };