Four random words from a list with Perl!

Question

For start, we know how can we output random lines from a txt file:

perl -MList::Util -e 'print List::Util::shuffle <>' words.txt

But we need a general solution (perl is usually installed on every unix-like OS) to output 4 random words from a txt file, how can we do it?

$ cat words.txt
...
alpha
beta
gamma
delta
epsilon
...
$

The "..." represents many other words.

Example output (without newline between them, but one unix newline is needed at the end, spaces should separate them):

$ perl SOMEMAGIC words.txt
gamma alpha delta beta
$

Using only perl, the shortest possible solution (oneliner).

It will be used as human memorable password generator: https://xkcd.com/936/

Since afaik perl is enough good to be named "random generator".

Example common english wordlist with 32768 unique lines: https://pastebin.ubuntu.com/23726760/

Answer 1

Perl is actually not such a good tool for this because you need a third-party library to generate random numbers securely. The default random number generator (rand or anything else that uses the same source, such as List::Util::shuffle) is not suitable for anything related to security. If you want to use Perl, install Math::Random::Secure (and its dependencies) (perl -MCPAN -eshell and run install Math::Random::Secure).

perl -MMath::Random::Secure=rand -l -e '@words = <>; print map $words[rand(@words)], 1..4' words.txt

I suggest using Python instead. These days it's about as common as Perl, and its standard library is much better rounded. Yes, the code is longer, but short code is not in itself a sign of quality.

python -c 'import random, sys; rng = random.SystemRandom(); words = sys.stdin.readlines(); print " ".join([words[rng.randrange(0, len(words))][:-1] for i in xrange(4)])' <words.txt

In a more readable multi-line form:

import random, sys
rng = random.SystemRandom()
words = sys.stdin.readlines()
print " ".join([words[rng.randrange(0, len(words))][:-1] for i in xrange(4)])

Alternatively, if you have non-antique GNU coreutils, which is the case on non-embedded Linux and Cygwin, you can use the shuf utility. You need to pass a secure random generator with the --random-source option.

shuf --random-source=/dev/urandom -r -n 4 words.txt

Answer 2

It sounds like you're not against non-Perl solutions, you just want something that works on most systems. In that case, the following uses only GNU core utils:

sort -R --random-source=/dev/urandom words.txt | head -n4 | paste -s -d' '

Modified to use shuf, based on Gilles' suggestion:

shuf -n 4 -r words.txt | paste -s -d' '

Answer 3

(ignoring the security problem mentioned by @Gilles)

 perl -0nE '@a=split; say join(" ", map{ $a[rand @a] } 1..4)'

or if you like CamelCase...

 perl -0nE '@a=split; say map{ ucfirst $a[rand @a] } 1..4'