我已经挖掘了文档,但我似乎无法找到类似于
Python中的
Counter.
我知道我可以写一些类似的东西,但内置会很方便.
琐碎的例子：
我的％h; @test的％h {$_};
Bag课程可以满足您的需求.
my %h is Bag = @test;
或者如果你只想强迫：
my $bag = @test.Bag;
在任何一种情况下,您都可以像任何普通的哈希一样使用该对象.
# show sorted with most frequent first
say "{.key} seen {.value} times" for %h.sort: -*.value
原文链接：https://www.f2er.com/Perl/172238.html
