ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch1/shuffle

Text File | 1992-10-18 | 230 b | 7 lines

#!/usr/bin/perl
srand;                      # Randomize the rand function.
@lines = <>;                # Read in all the lines.
while (@lines) {            # While more than 0 elements.
    print splice(@lines, rand @lines, 1);
}