utils/generate-distributions.pl
author Peter D. Barnes, Jr. <barnes26@llnl.gov>
Wed, 15 May 2013 09:56:21 -0400
changeset 9776 83aa0aa29e69
parent 191 411f29b214f0
permissions -rwxr-xr-x
[Coverity] Copy into fixed size buffer (STRING_OVERFLOW)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
191
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     1
#!/usr/bin/env perl
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     2
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     3
use Math::Random qw(:all);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     4
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     5
@values = random_uniform (10000, 0, 10000000);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     6
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     7
foreach $value (@values) {
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     8
    print $value . "\n";
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     9
}