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

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

  • Какая программа (ы) понижает мой уровень энтропийного пула?
  • Плохо ли иметь низкую энтропию в / dev / random?
  • Переименование пакетного файла: лучше, чем случайный идентификатор, чтобы предотвратить удаление файлов с повторяющимися именами файлов?
  • Используйте малиновый pi как источник энтропии для / dev / random
  • Замена / dev / (u) случайным образом внутри контейнера
  • Использование BSD jot для создания файла со случайным контентом
  • Как создать текстовый файл (1 гигабайт), содержащий случайные символы с кодировкой символов UTF-8?
  • Четыре случайных слова из списка с Perl!
  • One Solution collect form web for “Как безопасно рандомизировать порядок символов в строке?”

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

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

    vim – но с прокруткой, интерактивным текстом и копированием

    Экран отключает начало длинной команды при доступе через историю bash

    Не удалось найти эти debs: linux-image-4.9.0-3-amd64

    Слияние команды со специальными параметрами

    Что произойдет, если я планирую завершить работу в середине обновления?

    Как запустить приложение после входа в CentOS?

    Как напечатать «$» в документе здесь

    bash: получить имя массива от параметра к функции с сохранением индексов

    Red Hat Enterprise Linux 6: /boot/grub/menu.lst или /boot/grub/grub.conf?

    Разрешение отклонено для доступа пользователя к монтированию

    Загрузка Fedora 24 останавливается при запуске «Root Switch Root …» после отключения udev / udisks

    Просмотр предков текущего процесса и формирование результата

    сопоставление режимов вставки стрелок vim

    Linux-сервер, способный wget, но не способный к ping

    при входе через консоль или ssh после ввода пароля он говорит: «система идет вниз»,

    Linux и Unix - лучшая ОС в мире.