Как безопасно рандомизировать порядок символов в строке?

[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?

  • Какая программа (ы) понижает мой уровень энтропийного пула?
  • Переменная, случайным образом выбранная из трех чисел (10, 100 и 1000)
  • Как случайные генераторы псевдослучайных чисел на живых загрузочных дисках? Есть ли способ его семени?
  • Замена / dev / (u) случайным образом внутри контейнера
  • Добавление «случайной числовой энтропии» для ключей GPG?
  • Как я могу генерировать случайное 64-битное целое число со знаком с macOS?
  • Четыре случайных слова из списка с Perl!
  • Генерация ключей gpg на Cails live cd - почему так быстро?
  • One Solution collect form web for “Как безопасно рандомизировать порядок символов в строке?”

    Это зависит от того, что вы подразумеваете под «одной командой perl». Это, безусловно, может быть сделано с некоторым рефактором вашего подхода:

     echo abcde | perl -MList::Util=shuffle -lpe '$_ = join "", shuffle split //' 
    Linux и Unix - лучшая ОС в мире.