What’s the best way to shuffle an array in Perl?

Question

So I have a file. Let’s say it looks like this (it's actually longer):

1234 2134 3124 4123

What is the best way to shuffle the lines in that file?

The Perl FAQ covers this, as well as many other common Perl questions: How do I shuffle an array randomly? — Andy Lester
– Andy Lester, Commented Nov 16, 2012 at 18:00
Besides the FAQ which @Andy kindly points out, there are 40 Perl questions that mention “shuffle” that you should probably study. — tchrist
– tchrist, Commented Dec 6, 2012 at 1:29

Gilles Quénot · Accepted Answer · 2013-01-31 06:54:21Z

34

#!/usr/bin/env perl use strict; use warnings; use List::Util qw/shuffle/; my @arr = shuffle <>; print @arr;

Usage :

./script file.txt

answered Nov 16, 2012 at 12:13

188k43 gold badges232 silver badges229 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

List::Util is a core module, if that's important to you. (It is to me. I am a module snob.)