Re: Randomize lines with limited memory

[sauoq]

Here's an implementation of the suggestion I made in my reply to Corion...

#!/usr/bin/perl -w
use strict;

use Tie::File;
use List::Util qw( shuffle );

tie my @file, 'Tie::File', $ARGV[0] or die "$ARGV[0]: $!";

print $file[$_], "\n" for shuffle 0 .. $#file;

Short and sweet. :-)