☰

如何安全地随机化字符串中字符的顺序？

tag-icon • tag-icon perl random
如何安全地随机化字符串中字符的顺序？ 
[user@notebook ~]$ echo 'aabcd' | sed 's/\(.\)/\1\n/g' | perl -MList::Util -e 'print List::Util::shuffle <>' | perl -pe 's/\n//g';
cdaab[user@notebook ~]$ echo 'aabcd' | sed 's/\(.\)/\1\n/g' | perl -MList::Util -e 'print List::Util::shuffle <>' | perl -pe 's/\n//g';
dbaac[user@notebook ~]$ echo 'aabcd' | sed 's/\(.\)/\1\n/g' | perl -MList::Util -e 'print List::Util::shuffle <>' | perl -pe 's/\n//g';
cbada[user@notebook ~]$ echo 'aabcd' | sed 's/\(.\)/\1\n/g' | perl -MList::Util -e 'print List::Util::shuffle <>' | perl -pe 's/\n//g';
adcba[user@notebook ~]$

AFAIK 这是一种随机化字符串顺序的安全方法。但只用一个 perl 命令就能完成吗？

答案1

这取决于“一个 perl 命令”的含义。这当然可以通过对你的方法进行一些重构来完成：

echo abcde | perl -MList::Util=shuffle -lpe '$_ = join "", shuffle split //'

相关内容