是否有类似于Python中的Counter的内置方法？

Question

我已经挖掘了文档,但我似乎找不到类似于Python中的Counter.

我知道我可以写一些类似的东西,但内置会很方便.

琐碎的例子: my %h; %h{$_}++ for @test;

Answer 1

该袋类你想要做什么.

my %h is Bag = @test;

或者如果你只想强迫:

my $bag = @test.Bag;

在这两种情况下,你可以像使用任何普通物体Hash.

# show sorted with most frequent first
say "{.key} seen {.value} times" for %h.sort: -*.value