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

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

  • изменить строку и удалить тег, используя perl из xml-файла?
  • получить команду командной строки командной строки, чтобы сообщить, какие изменения сделаны
  • Я хочу найти дубликаты в файле и добавить символ в конец строки в первом совпадении
  • Используйте малиновый pi как источник энтропии для / dev / random
  • Считайте уникальные связанные значения в awk (или perl)
  • найти команду для новейших 500 файлов в дереве каталогов, а также быть совместимым с POSIX
  • совпадение шаблонов и захват в unix
  • Обрезка одной части, если она равна другой части?
  • Когда Automake переключился на использование Perl
  • извлекать только подстроку после двойных кавычек - grep
  • Perl - добавление строк подчеркивания и сортировки
  • Как написать этот псевдокод, где условие
  • One Solution collect form web for “Как безопасно рандомизировать порядок символов в строке?”

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

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