獲取一組到一個排序的數組perl

Question

我一直在尋找一種方法來將一個集合轉換爲一個排序的數組。

我已經找到了解決方案，但它似乎有點可笑：

use Set::Scalar; 
Set::Scalar->as_string_callback(sub{join("\n", sort $_[0]->elements)}); 
#above formats print so that a line is added between each element 
... #assume things are added to the set in this code 
my @arr = split("\n", "$set"); #array contains each sorted element of the set 

我唯一的問題是，在我眼裏這不應該是這樣做的快/內存有效的方法。如果您有任何建議，請告訴我。先謝謝你。

Answer 1

my @arr = sort $set->elements;