搜索、匹配和显示所有计数 perl

Question

我很熟悉 perl，但是我正在努力解决一些问题（必须是一年中的时间）

我发出 2 个命令，一个将获取特定类的所有项目，然后将所有这些项目存储在一个数组中。

    @array = `get_class_command -class=type`;

然后我发出另一个命令来获取类的属性

    $foreach my $item(@items) {
    $item =~ s/^\s+|\s+$//g;
    system("get_property_command -type=property"); # I can also assign this to a value.
    }

所以上面只会给我一个所有属性的列表。例如：

    property_CA
    property_CE
    property_CR
    property_CA
    property_CA
    property_CA
    property_CR
    property_CA

所以我现在既可以打印所有不同的类、所有类型和所有属性，也可以指定我只需要特定项目的计数。通过定义它们。 然而，我似乎无法弄清楚如何在计数中显示所有项目，而无需定义我想要的。所以我想通过命令，检查每个属性并显示一次名称，然后打印计数。例如：

    property_CA = 5
    property_CE = 1
    property_CR = 2

如果我在脚本中定义要匹配的内容，我可以这样做，但我需要知道每个属性才能定义它。

任何帮助将不胜感激！

Answer 1

 foreach my $item ( @items ) {
    my $property = `command to get thingys`
    $count_of{$property}++;
 }


 foreach my $property ( keys %count_of ) {
    print "$property $count_of{$property}\n";
 }