在perl中对字符串进行排序？

Question

在perl中是否有任何内置函数可以对字符串中的字符进行排序，如python中的 sorted（）？

例如，

  

$ word =＆＃34; honey＆＃34 ;;

我希望输出为＆＃34; ehnoy＆＃34;。

Answer 1

您必须将字符串拆分为字符列表，对其进行排序，并使用空字符串连接字符列表，

my $sorted = join "", sort split //, $word;

已分配ehnoy

Answer 2

你可以在一个子程序中嵌入mpapec的解决方案，使其像Perl一样内置它......

sub sorted
{
   join "", sort split //, shift;
}

my $str = "honey";

print sorted $str;