http://qs321.pair.com?node_id=227153


in reply to Randomise a string of letters

use Algorithm::Numerical::Shuffle qw/shuffle/; my $random = join '', shuffle split //, "The quick brown fox";
Though "truly random" is often a bit of a misnomer in computer land.

Replies are listed 'Best First'.
Re: Re: Randomise a string of letters
by Hofmator (Curate) on Jan 16, 2003 at 08:24 UTC
    or use List::Util qw/shuffle/; (rest stays the same) which has the added bonus of coming standard with perl 5.8.0.

    -- Hofmator