Re: Random data generation.

What's about

my @chars = (A..F);
my @strings;
while ($#strings < 5) {
 my $random = join('',map { $chars[int(rand(scalar(@chars)))]; } (1..1
+2));
 $random =~ /(.)\1{2}/ and next;
 push @strings, $random;
}
[download]

Try Padre - the free Perl IDE

Comment on Re: Random data generation. Download Code

Replies are listed 'Best First'.
Re^2: Random data generation. by almut (Canon) on Jun 28, 2010 at 09:44 UTC
Generating the entire string before you check becomes highly inefficient for long strings, because the likelihood to have a violation approaches 1.0 as strings get longer, so you'll throw away almost every sample you generated...	[reply]

In Section Seekers of Perl Wisdom