UNIX for Dummies Questions & Answers

perl -ane 'use List::Util 'shuffle'; $,=" ";print shuffle(@F);' file

awk 'BEGIN { srand() }
{
  split(x, s)
  j = int(NF * rand() + 1)
  for (i = 0; ++i <= NF;) {
    while (j in s) j = int(NF * rand() + 1)
    printf "%s", ($j (i < NF ? FS : RS)); s[j]
    }
  }' infile

$ ruby -ne 'BEGIN{srand};puts $_.split.shuffle.join(" ")' file
for test is shuffle a random this
$  ruby -ne 'BEGIN{srand};puts $_.split.shuffle.join(" ")' file
for random is shuffle a this test
$ ruby -ne 'BEGIN{srand};puts $_.split.shuffle.join(" ")' file
is for this shuffle test random a

$ od -c file #notice the tabs
0000000   g   o  \t   w   e   n   t  \t   g   o   n   e  \n   s   l   e
0000020   e   p  \t   s   l   e   p   t  \t   s   l   e   p   t  \n
0000037

$ ruby -ne 'BEGIN{srand};puts $_.split.shuffle.join(" ")' file
went gone go
slept sleep slept

perl -lane 'use List::Util 'shuffle'; $,=" ";print shuffle(@F);' file