in reply to Difficulty in randomization
Short version for Monks who don't like typing:
use List::Util qw/ shuffle /; my @strings = map { join '', shuffle( ('X') x 10, ('-') x 590 ) } 1 .. + 1000;
|
---|
In Section
Seekers of Perl Wisdom
in reply to Difficulty in randomization
Short version for Monks who don't like typing:
use List::Util qw/ shuffle /; my @strings = map { join '', shuffle( ('X') x 10, ('-') x 590 ) } 1 .. + 1000;
|
---|